procedure TForm1.Button1Click(Sender: TObject); begin WinExec(PChar('COMMAND.COM /C ' + Edit1.Text), SW_SHOWNORMAL); end;