[DarkMan]

Yo lo haría de este modo:

Código Delphi [-]
...
var 
  sArray: array [1..63] of AnsiChar;
  sAlgo: string;
  Buffer: Integer;
Begin
  For buffer:=1 to length(Salgo) do
  begin
   If Buffer>63 then break;
   Sarray[Buffer]:=Salgo[Buffer];
  end;
end;