[roman]

Empezado por vtdeleon

Todo es mas largo

No es del todo justa la comparación. Por ejemplo, en español escribes variable siendo que en inglés usas la abreviatura var.

Vamos a comparar:

procedure FormCreate(Sender: TObject);
rutina CrearVentana(Emisor: TObjeto);
var
var
  N: Integer;
  N: Entero;
  Path: String;
  Ruta: Cadena;

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

// Saludos