[eXplorer]

Код:

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

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