No corre

[Albano]

Empezado por Bicho

Prueba a indentar el código para meter los bloques begin-end unos dentro de otros para poder separarlos y tenerlos más claro visiblemente y no te ocurrirá este tipo de errores

La verdad es que necesitas un poco mas de orden en la manera de redactar tu codigo y tus preguntas en el foro silviodp y con 200 mensajes debes de tener la experiencia de que "mientras mas detalles des en tus hilos, mas rápido obtienes respuesta".
Aqui ya no te debe marcar el error que mencionas.

Código Delphi [-]
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 TxtSocio.Text:=m;
        n:=ModuloDatos.TblComprobantes.FieldValues['Cod_periodo'];
        If ModuloDatos.TblPeriodos.Locate('Cod_periodo',n,[]) Then TxtPeriodo.Text:=n;
        TxtImporte.Text:=ModuloDatos.TblComprobantes.FieldValues['Importe'];
        Confirmar.SetFocus
      end
      Else //(4)
      begin
        ShowMessage('La factura Nº'+' '+TxtNumero.Text+' '+'ya fue cobrada!!!');
        (Sender as TDBEdit).SelectAll;
      end;
    end
    Else //(3)
    begin
      ShowMessage('Factura no encontrada. Verifique el Número de la misma.');
      (Sender as TDBEdit).SelectAll;
    end; //(3)
  end; //(2)
end; //(1)