[ztnumberless]

Получается только с одной. А мне нужно чтобы было
[Переменная1] [Переменная 2]

[s0Creator]

Код:

Label1.Caption := '[' + Var1 + '] [' + Var2 + ']';

если переменные строковые

[Smirnov Ivan]

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

Пример:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption:=IntToStr(X)+' , '+IntToStr(Y);
end;

[Smirnov Ivan]

Вот так можно записать бесконечное множество переменных через запятую или без неё

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

Пример:
этот пример отправляет координаты (X и Y) в Label1

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption:=IntToStr(X)+' , '+IntToStr(Y);
end;

[ztnumberless]

Спасибо, получилось. Я в общем то так и предполагал, но программа упорно не желала запускаься. Как выяснилось ошибка была не в этом но я её нашел