Получение имени модуля

procedure TForm1.Button1Click(Sender: TObject);
var
  szFileName : array[0..49] of char;
  szModuleName : array[0..19] of char;
  iSize : integer;
begin
  StrPCopy(szModuleName, "NameOfModule");
  iSize := GetModuleFileName(GetModuleHandle(szModuleName),szFileName,
    SizeOf(szFileName));
  if iSize > 0 then
    ShowMessage("Имя модуля с полным путем: " + StrPas(szFileName))
  else
    ShowMessage("Имя модуля не встречено");
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ParamStr(0));
end;

// Включить в Uses SysUtils

procedure TMainForm.Button2Click(Sender: TObject);
var 
  AppDirectory, AppPathName: string;
begin
  AppPathName := Application.ExeName;
  AppDirectory := ExtractFilePath(AppPathName);
  messageDlg("Имя программы "+ AppPathName+#13+
    "Имя каталога программы "+ AppDirectory
    ,mtInformation,[mbOK],0);
end;