[javiermorales]

Hola de nuevo,no te había indicado nada sobre la variable cadena ya que no lo consideré necesario. Es simplemente una variable de tipo string, en tu ejemplo, sería así:

procedure TForm1.edCodigoKeyPress(Sender:TObject; var key: Char);

var
   cadena: string;

Begin
If Key = #13 Then
Begin
 Table1.First;
 try
    cadena := IntToStr(edCodigo.Text);
 except
    ShowMessage('Debe introducir solo números');
    Exit;
 end;
 
 If Not Table1.Locate('N_CARNET',cadena,[])Then
  ShowMessage('Ese Nº Carnet no existe');
end;

Un saludo