Possible error in IDE?

[MBulu]

Sorry for my English,
some function, for example "GetTempPath" or "GetEnvironmentVariable", if used from IDE works only the first time.
If i run program more than one time from IDE, they returns bad value, but if i  run the compiled program they work correctly.
For example:

*********************************
  function WinTemp:string;
  Var AppoPChar:Pchar;
  begin
    getmem (AppoPChar, MAX_PATH);
    GetTempPath (MAX_PATH, AppoPChar);
    Result:=AppoPChar;
    FreeMem (AppoPChar, MAX_PATH);
  end;
*********************************

Appo:=WinTemp;

The first time the value of Appo is 'C:\Documents and Settings\BONMAR\Impostazioni locali\Temp\'
After first time the value of Appo is 'C:\WINDOWS\'


It's a bug?

[felipemdc]

Works perfectly here. Also you forgot to type cast. If you are using a beta lazarus you should get a new stable release like 0.9.10

Here is my perfectly working code running from a button OnClick on lazarus 0.9.10 stable:

procedure TjanelaPrincipal.Button1Click(Sender: TObject);
var
  AppoPChar:Pchar;
begin
  getmem (AppoPChar, MAX_PATH);
  GetTempPath (MAX_PATH, AppoPChar);
  Caption := string(AppoPChar);
  FreeMem (AppoPChar, MAX_PATH);
end;