TMemo, programteknisk scroll ?

ved ikke helt hvad du mener, måske du kunne bruge noget som det her:

procedure TForm1.GoToLine(Nr: integer);
var
  Text: string;
  i: integer;
begin
  Text := '';
  for I := 0 to Nr do
    Text := Text +#13#10+ RichEdit1.Lines.Strings[I];

    RichEdit1.SelStart := length(Text);
    RichEdit1.Perform(EM_SCROLLCARET, 0, 0)
end;


procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  GoToLine(ScrollBar1.Position);
end;

procedure TForm1.ScrollBar1Enter(Sender: TObject);
begin
  ScrollBar1.Max := RichEdit1.Lines.Count;
  ScrollBar1.Min := 0;
end;

Tak for dit input. Det bragte mig på sporet af løsningen.
Et Memo med cursor/scroll i bund af teksten blev "sendt til tops" med:

Form1.Memo1.SelStart := 0;
Form1.Memo1.Perform(EM_SCROLLCARET, 0, 0); //denne havde jeg overset

- fuld kontrol er bare lidt ekstra kode..