[Setup]
AppId=<your app id>
AppName={code:GetAppName}
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
var
  MyEdit: TEdit;

function GetAppName(Value: string): string;
begin
  Result := MyEdit.Text;
end;

...