delphi中如何 执行一组DOS命令呢？(20分)

delphi中如何 执行如下文的一组DOS命令呢：

C:/Documents and Settings/wh>ftp
ftp> open 10.40.24.3 210
Connected to 10.40.24.3.
220 Serv-U FTP Server v4.2 for WinSock ready...
User (10.40.24.3none)): tmp
331 User name okay, need password.
Password:
230 User logged in, proceed.
ftp> mkdir ak1
550 /ak1: failed to create.
ftp> bye
221 Goodbye!

C:/Documents and Settings/wh>

最好的方法是用DELPHI生成一个BAT文件再调用，就这么简单。
当然，死要用WINEXEC或SHELLEXCUTE之类的运行也没有办法。

生成批处理文件,再去执行

还是批处理好!

看一下ftp.exe -help的帮助，里面的-s参数。