var
ChrArray:Array of Char;
begin
SetLength(ChrArray,Length(Trim(Edit1.Text)));
for I:=Low(ChrArray) to High(ChrArray) do
ChrArray[I]:=Trim(Edit1.Text)[I];
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aa:array [1..6] of char;
bb:string;
i:integer;
begin
edit1.text:='123456';
bb:=edit1.text;
for i:=1 to 6 do
begin
aa[i]:=bb[i];
showmessage('aa['+inttostr(i)+']='+bb[i]);
end;
end;