Array of Char - problem.

Ako imam:

const MAX_PATH_SIZE = 1024;

var
szSourcePath : Array[0..MAX_PATH_SIZE+1] of Char;

...

Kako da dodam vrednosti u szSourcePath?
Na primer:
'MorProgram v1.0 program.exe '

const MAX_PATH_SIZE = 1024;

var
szSourcePath : Array[0..MAX_PATH_SIZE+1] of Char;

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;

aSTr: string;
begin
s := 'MorProgram v1.0 program.exe ';

for i:=1 to Length(s) do
begin
if i < MAX_PATH_SIZE then
szSourcePath[i-1] := s;
end;

// provera!
aStr := '';
for i:=Low(szSourcePath) to High( szSourcePath) do
aStr := aStr + szSourcePath;
self.caption := aStr;
end;

poz!