FTP客户端程序(10分)

procedure getservertypefromsyst(ftp:tidftp); //判断服务器的主机类型
var
ftpservertype:tftpservertype;
columtosort:integer;
s:string;
begin
s:=form1.IdFTP1.SystemDesc;
if pos('windows',lowercase(s))>0 then
ftpservertype:=ftpwindows
else
ftpservertype:=ftpunix;
我这个过程会出现错误
var
ftpservertype:tftpservertype;
这里定义出现错误 为什么？
刚接触

怎么没人回答我

1、有这个类吗？
2、你要的话，自已写一个类吧。
3、我不知道你用哪个版本的indy ftp，这段代码的作用是取远程取务器类型吧，但是现在很多FTP SVR软件可以任意指定WIN或UNIX的，有什么意义吗？