нажатие на кнопку

[profi]

Можно так еще:

.......................
var
  Form1: TForm1;
  flag : boolean = true;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (flag) then
    ShowMessage('One')
  else
    ShowMessage('Two');

    flag := not flag;
end;

end.

[admroot]

Сообщение от profi

Можно так еще:

спасиб, вроде работает

[DomiNick]

DomiNick а что это за процедуры?

Ну... Создал две процедуры (точнее добавил методы в класс формы) и динамически задаю которая будет при нажатии кнопки вызываться...

что б нажал, появилась строка, нажал очистилась, нажал - появилась и т д

Зачем же там repeat until? Оно ж зависнет наглухо...
Если при отпускании кнопки "очищать", то через MouseDown/MouseUp лучше...

[Levsha100]

только почему то не работает:

Программисты, блин.
Это же локальная переменная, она должна быть глобальной, тогда все будет чики-пуки.

[Пепел Феникса]

XeruH, нулем, что уже не идет по ТЗ.