[0nni]

Код:

caption := ParamStr(0);

Код:

var buff : array[0..256] of char;
begin
  GetModuleFileName(HInstance, @buff, 256);
  Caption := buff;