estructura erronea pero no se donde

[mainau]

Buenas tardes, os muestro una estructura que me trae loco no se donde esta el fallo , bueno si si quito el ultimo else funciona pero tambien me da el mensaje y es mentira agradeceré cualquier mensaje aunque sea de apoyo estoy muerto con esto


procedure TForm6.Button2Click(Sender: TObject);
var sumador:integer;
var fecha1:tdatetime;
var fecha2:tdatetime;
begin
// compruebo si lo quiere entre fechas o todo
if not checkbox2.Checked then
edit2.text:=form19.ADOTable1pendiente.AsString
else
// si lo quiere entre fechas comprueba primero que existen registros
//form5.ADOTable1.IndexName:='codigo';
if form5.ADOTable1.Locate('codigo', form19.ADOTable1codigo.AsInteger,[]) then
edit3.Text:='@';
while not form5.ADOTable1.eof do
begin
edit3.Text:=form5.ADOTable1ADELANTO.AsString;
form5.ADOTable1.Next;
end

else messagedlg('No existen registros de ese empleado', mtinformation, [mbok],0);


end;