Hola richy08.
Podes usar el procedimiento
SetString.
A modo de ejemplo:
Código Delphi
[-]
procedure TForm1.btnDemoClick(Sender: TObject);
var
aSerie : array[0..33] of Char;
i: Byte;
Cadena: string;
begin
for i:= 0 to 33 do aSerie[i]:= Chr(63+i);
SetString(Cadena, aSerie, Length(aSerie));
ShowMessage(Cadena);
end;
Saludos.