{Not: Etkiyi gormek icin SpeedBtn kullaniniz}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
// en alta
Memo1.Selstart := Length (Memo1.Text);
Memo1.Perform(EM_SCROLLCARET, 0, 0);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
// en üste
Memo1.SelStart := 0;
Memo1.Perform(EM_SCROLLCARET, 0, 0);
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
// satir 6 ya git(0 dan baslar)
with Memo1 do
SelStart := Perform(EM_LINEINDEX, 5, 0);
Memo1.Perform(EM_SCROLLCARET, 0, 0);
end;