конструкция if else

[Emperator12]

procedure TForm1.Button3Click(Sender: TObject);
{var
log,pass: string; }
begin
if i < Accs.Count then begin
if Pos('Писем найдено:', Accs[i]) <> 0 then begin
log:= Copy(Accs[i],1, Pos(Edit4.Text, Accs[i])-1);
pass:= Copy(Accs[i],Pos(Edit4.Text, Accs[i])+1, Length(Accs[i]));
pass:= COpy(pass,1,Pos('|',pass)-1);
end
else
log:= Copy(Accs[i],1, Pos(Edit4.Text, Accs[i])-1);
pass:= Copy(Accs[i],Pos(Edit4.Text, Accs[i])+1, Length(Accs[i]));
end;
Inc(i);
chek2(log,pass)
end
else
AddLine(Memo1, 'Аккаунты закончились..', clWhite);
end;

Почему не работает ? Ведь правильно составил конструкцию if else.

';' expected but 'ELSE' found
'.' expected but ';' found

[Stilet]

end
else begin
log:= Copy(Accs[i],1, Pos(Edit4.Text, Accs[i])-1);
pass:= Copy(Accs[i],Pos(Edit4.Text, Accs[i])+1, Length(Accs[i]));
end;

Чтоб разобраться почему не работает надо знать особенности вложенных IF (На пальцах так не расскажешь)

[Yurk@]

правильно форматируй код, и тогда будет видно где что упущено

procedure TForm1.Button3Click(Sender: TObject);
begin
  if i < Accs.Count 
  then 
  begin
    if Pos('Писем найдено:', Accs[i]) <> 0 
    then 
    begin
      log:= Copy(Accs[i],1, Pos(Edit4.Text, Accs[i])-1);
      pass:= Copy(Accs[i],Pos(Edit4.Text, Accs[i])+1, Length(Accs[i]));
      pass:= Copy(pass,1,Pos('|',pass)-1);
    end
    else
    begin
      log:= Copy(Accs[i],1, Pos(Edit4.Text, Accs[i])-1);
      pass:= Copy(Accs[i],Pos(Edit4.Text, Accs[i])+1, Length(Accs[i]));
    end;
    Inc(i);
    chek2(log,pass);
  end
  else
  AddLine(Memo1, 'Аккаунты закончились..', clWhite);
end;