Oder hier noch eine ganz blöde methode! geht aber auch!
Delphi-Quellcode:
procedure TForm1.button1click (Sender: TObject);
var
a: integer;
begin
inc(a);
if a = 1 then
Memo1.visible := true;
if a = 2 then
Memo1.visible := false;
if a > 1 then
a := 0
end;
Ist zwar blöde aber auch eine alternative!