[cyborgg4655]

Большое спасибо!! Просто я до конца не разобарлся с функцией формата, а с теперь я полность разобрался, за это двойное спасибо)
Вот мой итоговый код, я думаю пригодится кому нибудь на заметку:

Код:

procedure TForm1.Button4Click(Sender: TObject);
var asd : string;
begin
asd := Edit2.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= Format('CREATE TABLE %s (MyField char(25), swe char(25))', [asd]);
ADOQuery1.ExecSQL;
end;