Показать сообщение отдельно
  #3  
Старый 25.03.2008, 16:54
Smirnov Ivan Smirnov Ivan вне форума
Прохожий
 
Регистрация: 26.02.2008
Сообщения: 12
Репутация: 10
По умолчанию

Label1.Caption:=Переменная1+' , '+Переменная2;

Пример:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption:=IntToStr(X)+' , '+IntToStr(Y);
end;
Ответить с цитированием