[Nyctos Kasignete]

Не знаю, нужно ли вам ещё, но вот возможное решение:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  W32FD: WIN32_FIND_DATA;
  Hndl: Cardinal;
  cdir: array[0..MAX_PATH - 1] of Char;
begin
  GetCurrentDirectory(SizeOf(cdir), cdir);
  FillChar(W32FD, SizeOf(W32FD), 0);
  Hndl := Windows.FindFirstFile(PChar(ParamStr(1)), W32FD);
  Label1.Caption := StrPas(cdir) + '\' + StrPas(W32FD.cFileName);
  Windows.FindClose(Hndl)
end;

Windows SDK так и предлагает:

You can obtain the long name of a file from the short name by calling the FindFirstFile function.