Title: Create/Remove folder
Use CreateDirectory and RemoveDirectory for this.
var
St1: array[0..MAX_PATH-1] of Char;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
St1:='c:\temp';
CreateDirectory(St1, nil);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
St1:='c:\temp';
RemoveDirectory(St1);
end;