No corre

[silviodp]

Hola a todos, alguien puede ver este codigo y decirme como solucionarlo para que se ejecute ya que me da error en el ELSE //(4), y puedo hacerlo andar.

procedure TForm14.DBEdit2KeyPress(Sender: TObject; var Key: Char);
Var
 n,m:Variant;
begin //(1)
If Key=#13 Then
 begin //(2)
  ModuloDatos.TblComprobantes.Active:=True;
  If ModuloDatos.TblComprobantes.Locate('Numero',TxtNumero.Text,[]) Then
   begin //(3)
    If ModuloDatos.TblComprobantes.FieldValues['Estado']<>'P' Then
     begin //(4)
       m:=ModuloDatos.TblComprobantes.FieldValues['Cod_soc'];
       If ModuloDatos.TblSocios.Locate('Cod_soc',m,[]) Then
        begin
         TxtSocio.Text:=m;
       end;
       n:=ModuloDatos.TblComprobantes.FieldValues['Cod_periodo'];
       If ModuloDatos.TblPeriodos.Locate('Cod_periodo',n,[]) Then
        begin
         TxtPeriodo.Text:=n;
       end;
       TxtImporte.Text:=ModuloDatos.TblComprobantes.FieldValues['Importe'];
       Confirmar.SetFocus
     Else //(4)
      begin
       ShowMessage('La factura Nº'+' '+TxtNumero.Text+' '+'ya fue cobrada!!!');
       (Sender as TDBEdit).SelectAll;
      end
   Else //(3)
    begin
     ShowMessage('Factura no encontrada. Verifique el Número de la misma.');
     (Sender as TDBEdit).SelectAll;
    end; //(3)
 end; //(1)
end;

Muchas gracias, saludos.

Silvio.-