function BytesToStr(mBytes: array of Byte): string;
var
I: Integer;
begin
Result := '';
for I := Low(mBytes) to High(mBytes) do
Result := Result + Chr(mBytes[I])
end; { BytesToStr }
var
I: Integer;
begin
Result := '';
for I := Low(mBytes) to High(mBytes) do
Result := Result + Chr(mBytes[I])
end; { BytesToStr }
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := BytesToStr([97, 98, 99, 100]); //'abcd'
end;