Обучалки

{Функция преобразования разнотипных данных в строку}
FUNCTION TForm1.AllToStr(CONST Value: ARRAY OF CONST): STRING;
CONST BString: ARRAY [Boolean] OF STRING = ('False', 'True');
VAR
 
 i: Integer;
 S: STRING;
 
BEGIN
 
 Result := ''; 
 FOR i := Low(Value) TO High(Value) DO 
 
  WITH TVarRec(Value[i]) DO BEGIN
 
   CASE VType OF
 
    vtInteger : S := IntToStr(VInteger);
    vtBoolean : S := BString[VBoolean];
    vtChar : S := VChar;
    vtExtended : S := FloatToStr(VExtended^);
    vtString : S := VString^;
    vtPointer : S := IntToHex(LongInt(VPointer), 8);
    vtPChar : S := StrPas(VPChar);
    vtObject : S := vObject.ClassName;
    vtClass : S := vClass.ClassName;
 
   END;
  AppendStr(Result, S);
 
 END;
 
END;
 
............
 
{Пример использование функции AllToStr}
procedure TForm1.Button1Click(Sender: TObject);
VAR a, b: Integer;
begin
 
 a := 10; b := 20;
 Label1.Caption := AllToStr([ a, '+', b, '=', a+b, #9 ]);
 
end;