GetAppVersion debe de estar antes o sobre el procedimiento o función que la llame, sino, la declaras en private
function GetAppVersion;
Luego haces una pequeña modificación:
Código Delphi
[-]Function TForm1.GetAppVersion: String;
Var
Size, Size2: DWord;
Pt, Pt2: Pointer;
Begin
......
código
......
End;