[demon-sheff]

работает! но вот когда делаю загрузку

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 SR, SK, SV: TSearchRec;
 S: TStrings;
  otv:word;
 c, Dir : string;
 j,i: integer;
     st, sa:shortstring;
     FindRes, FindRez :Integer;
     sl:TStringList;
begin
    if SelectDirectory('Выберите папку', 'C:\', Dir) then
   begin
      Edit1.Text := Dir;
   end;
    if FindFirst(Dir+'\*.xml',faAnyFile,SK) = 0 then
  repeat
    S:=TStringList.Create;
    S.LoadFromFile(Dir+'\'+SK.Name);
    Memo1.Text:=Memo1.Text+#13+S.Text;
    S.Free;
  until FindNext(SK) <> 0;
  FindClose(SK);
   begin
 FindRes:=FindFirst(Dir+'\*.xml',faAnyFile,SR);
 While FindRes=0 do
       memo4.Lines.Add(SR.Name);
       FindRes:=FindNext(SR);
       end;
          FindClose(SR);
          begin
      FindRez:=FindFirst(Dir+'\*.zip',faAnyFile,SV);
 While FindRez=0 do
    begin
        memo6.Lines.Add(SV.Name);
       FindRez:=FindNext(SV);
       end;
          FindClose(SV);
           end;
           end;
end.

ругается на вот эту строчку if SelectDirectory('Выберите папку', 'C:\', Dir) then