[Anatoluu]

, то на 4-ом появлялся текст.

На фотографии то что я хочу сделать я уже сделал крестики нолики при нажатии на кнопку в верхнем квадратике появляется соответствующий символ.При нажатии на нижний всё очищается.

Как сделать так чтобы когда было например 3-и крестика вряд то сверху ( Добавлю ещё один label ) Появлялась надпись что то вроде " Крестики победили " ?

[Dux]

Помещаете на форму компонент TTimer. В обработчике событий OnTimer записываете

Код:

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
if (Label1.Caption=Label2.Caption) and (Label1.Caption=Label3.Caption) then Label4.Caption:='Ваш текст';
end;

[Anatoluu]

1) Текст появляется сразу только когда запускаю программку
2) как сделать отдельно для крестиков и для ноликов ?

[eXplorer]

Код:

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
if (label1.caption='X') and (label2.caption='X') and (label3.caption='X')
then
label4.caption:='текст';
end;

аналогично для ноликов
извиняюсь конечно... но основы delphi знать надо...

[Anatoluu]

А как сделать чтобы когда я нажимал кнопочку " начать заного " то надпись сверху стиралась ?

[eXplorer]

В обработчике события кнопки (OnClick):

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
label4.caption:='';
end;

ну или какой там у тебя label я незнаю...