Выделить строки в Memo

[apromix]

Подскажите, как выделить строки в TMemo (скажем с 10-й по 20-ю), чтобы затем из можно было бы скопировать в буфер/заменить на другой текст/и т.д. Вобщем выделить... Спасибо

[Gregor]

поиграйся с этим

  Memo1.SelStart := 2;
  Memo1.SelLength := 2;
  Memo1.SetFocus;

[apromix]

Нет, это понятно само собой, но вот я нашел, что начало выделения, строка, скажем, 10, а конец - 20. Как узнать, с какого символа начать выделять, строки то разные по длине (обычный текст)?

Вот код:

procedure TEditorForm.cmdEditModeClick(Sender: TObject);
var
  S: String;
  I, A, B, C, D: Integer;
begin
  A := SynEditor.CaretY;
  for I := A downto 0 do if (SynEditor.Lines[I] <> '') and (SynEditor.Lines[I][1] = ':') then Break;
  B := I; if B < 0 then B := 0;
  D := Length(SynEditor.Text);
  for I := A to D do if (SynEditor.Lines[I] <> '') and (SynEditor.Lines[I][1] = 'e') and (SynEditor.Lines[I][2] = 'n') and (SynEditor.Lines[I][3] = 'd') then Break;
  C := I;
  LocMode := not LocMode;
  SynEditor.SelStart := B;
  SynEditor.SelEnd := C;
  S := SynEditor.SelText;
  ShowMessage(IntToStr(B) + '-' + IntToStr(C));
end;

Пояснения: вместо Memo SynEdit, в конце ShowMessage показывает номера строк, начало и конец выделения, в тестовых целях...