Вот так можно записать бесконечное множество переменных через запятую или без неё
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;