[delphi.com.ar]

Seamos literales:

procedure FormCreate(Sender: TObject);
procedimiento CrearFormulario(Remitente: TObjeto);
var
var
  N: Integer;
  N: Entero;
  Path: String;
  Huella: Cadena;

begin
inicio
  N := 0;
  N := 0;
  Path := ExtractFilePath(ParamStr(n));
  Huella := ExtraeHuellaArchivo(ParamCad(n));
  ShowMessage(Path);
  MuestraMensaje(Huella);
end;
fin;

Esto me recuera a algo...