listbox에 들어온 item들을 선택해서 다운받을때

"500 'RETR':Invalid number of Parameters"라는 메세지가 발생합니다.

이럴땐..어떻게 처리를 해야할지..도저히 모르겠군요..

help에도 안나와있는거 같은데...

아래에 소스태용 첨부합니다.

아..이때.다중선택일경에우만..에러가 발생하는군요...



For j:=0 to ListBox1.Items.Count-1 do

if ListBox1.Selected[j]=true then

begin

str := ListBox1.Items.Strings[j];

sTmp := str;

ePos := Pos(' ', sTmp);

if ePos > 0 then

begin //마지막 공백찾기 시작

sTmp := Copy(sTmp, ePos + 1, 999);

while Pos(' ', sTmp) > 0 do

begin

ePos := ePos + Pos(' ', sTmp);

sTmp := Copy(sTmp, Pos(' ', sTmp)+1, 999);

end;

end; //마지막 공백찾기

sPos := Pos('<',str);

sNm := copy(str,ePos+1,Length(str)); //선텍된 파일명이나 디렉토리 산출

if sPos = 0 then

begin

NMFTP1.Download(sNm, sNm);

ListBox1.Selected[j]:=false;

end;

end;