linienummer med richedit

prøv den her :

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
var
  s : String;
  i : Integer;
begin
  if key <> 13 then
    exit;
  i := Richedit1.Lines.Count;

  s:= \'\';
  if i < 100 then
    s:= s + #32;
  if i<10 then
    s:= s + #32;
  s:= s+IntToStr(i);
  RichEdit1.Lines[i] := s+ RichEdit1.Lines[i];
end;


Jens B

Tak for hjælpen.