mehrere Button-Captions in Memo verschieben

[Robert_G]

Und warum nicht einfach so:
(Im OnClick, das jedem Button zugewiesen wird)

Delphi-Quellcode:

  With Sender As TButton Do
  Begin
    If Memo1.Lines.IndexOf(Caption) = -1 Then
      Memo1.Lines.Add(Caption);
  End;