Das geht erstmal schöner:
Zitat:
Delphi-Quellcode:
function membufferscan(a:string) : boolean;
begin
result := pos(a, Form1.membuffer.Lines.Text) > 0;
end;
Was du suchst ist FindComponent
Du brauchst einen Button (var b: TButton) und dessen Name
mit
b := TButton(FindComponent('meintollerbutton'));
kannst du den zuweisen, und dann mit b.caption dessen caption setzen.
Allerdings solltest du noch darauf achten, dass der Button wirklich existiert
[edit=mkinzler]Codehighlighting eingefügt Mfg, mkinzler[/edit]