pravljenje direktorijuma na osnovu unosa u edit polje

Potrebno je da nizu karaktera

st1: array[0..MAX_PATH-1] of Char;

dodam vrednost koju zadajem u edit1. Ja to uradim ovako(celaq procedura):

procedure TForm1.Button2Click(Sender: TObject);
var
St1: array[0..MAX_PATH-1] of Char;
br,i:integer;
a:string;

begin
a:=edit1.Text;
br:=length(edit1.text);
for i:=0 to br-1 do st1:=a;

CreateDirectory(st1, nil);

end;


ali tada st1 ostane prazan, odnocno nema nista. Inace cilj mi je kreiranje direktorijuma koji ce se zvati na osnovu unosa u edit box.

Sta da uradim pa da na osnovu unetog u editu uspem da kriram direktorijum?