Uses TypInfo,.....;

function IsPropertyInfo(Obj: TPersistent; PropertyName: string;
    var PropInfo: PPropInfo): Boolean;
var TypeInfo: PTypeInfo;
begin
  Result:=False;
  TypeInfo:=Obj.ClassInfo;
  if TypeInfo=nil then exit;
  PropInfo:=GetPropInfo(TypeInfo, PropertyName);
  if PropInfo=nil then exit;
  Result:=True;
end;

Function PropertyExists(AObject:TPersistent; PropertyName:string):boolean;
var PropInfo:PPropInfo;
begin
  Result:=IsPropertyInfo(AObject,PropertyName,PropInfo);
end;

function SetStringProperty(Obj: TPersistent; PropertyName: string; Value: string): Boolean;
var PropInfo: PPropInfo;
begin
  Result:=IsPropertyInfo(Obj,PropertyName,PropInfo);
  if not Result then exit;
  SetStrProp(Obj,PropInfo,Value);
end;

function GetStringProperty(Obj: TPersistent; PropertyName: string): string;
var PropInfo: PPropInfo;
begin
  Result:='';
  if not IsPropertyInfo(Obj,PropertyName,PropInfo) then exit;
  Result:=GetStrProp(Obj,PropInfo);
end;

// использование

begin
 if PropertyExists(MyForm,'Caption') and GetStringProperty(MyForm,'Caption')='Old form caption' then
    begin
      if SetStringProperty(MyForm,'Caption','New form caption') then ShowMessage('Ok!')
      else ShowMessage('Failed!');
    end;
end;

procedure Proc(var Result: string; I, J: Integer);
begin
  Result := IntToStr(I) + IntToStr(J)
end;

function Func(I, J: Integer): string;
begin
  Result := IntToStr(I) + IntToStr(J)
end;

procedure TForm8.FormCreate(Sender: TObject);
var
  S: string;
begin
  Proc(S, 1, 2);
  S := Func(1, 2);
  Caption := s;
end;

MY>Сорри за придирку :

DM>>function GetStringProperty(Obj: TPersistent; PropertyName: string): string;
DM>>var PropInfo: PPropInfo;
DM>>begin
DM>>  Result:=''; // эта инициализация лишняя
DM>>  if not IsPropertyInfo(Obj,PropertyName,PropInfo) then exit;
DM>>  Result:=GetStrProp(Obj,PropInfo);
DM>>end;
DM>>

function GetString: string;
begin
  Exit;
end;

var
  s: string;
begin
  s := 'Master Yoda';
    s := GetString;
  ShowMessage(s); // s is equal to 'Master Yoda'; s is not empty
end;

function PropType(AClass: TClass; const PropName: string): TTypeKind;

program Test;
{$APPTYPE CONSOLE}
uses SysUtils, TypInfo, Classes;

type
{$M+} // Для возможности чтения свойств в run-time нужно включить генерацию RTTI  для данного класса
    TMyClass = class
    private
        function GetDoubleProperty: Double;
        function GetIntegerProperty: Integer;
        function GetStringProperty: string;
        function GetCharProperty: Char;
    published
        property StringProperty: string read GetStringProperty;
        property IntegerProperty: Integer read GetIntegerProperty;
        property DoubleProperty: Double read GetDoubleProperty;
        property CharProperty: Char read GetCharProperty;
    end;
{$M-}

function TMyClass.GetCharProperty: Char;
begin
    Result := 'y';
end;

function TMyClass.GetDoubleProperty: Double;
begin
    Result := 5.5;
end;

function TMyClass.GetIntegerProperty: Integer;
begin
    Result := 7;
end;

function TMyClass.GetStringProperty: string;
begin
    Result := 'abcde';
end;

function GetPropValue(Instance: TObject; PropName: string): Variant;
begin
    case PropType(Instance.ClassType, PropName) of
        tkInteger: Result := GetOrdProp(Instance, PropName);
        tkFloat: Result := GetFloatProp(Instance, PropName);
        tkLString: Result := GetStrProp(Instance, PropName);
        else
            Result := 'unsupported property type';
    end;
end;

var
    Obj: TMyClass;
begin
    Obj := TMyClass.Create;
    Writeln('StringProperty = ', VarToStr(GetPropValue(Obj, 'StringProperty')));
    Writeln('IntegerProperty = ', VarToStr(GetPropValue(Obj, 'IntegerProperty')));
    Writeln('DoubleProperty = ', VarToStr(GetPropValue(Obj, 'DoubleProperty')));
    Writeln('CharProperty = ', VarToStr(GetPropValue(Obj, 'CharProperty')));
    Obj.Free;
    Readln;
end.

MY>Сорри за придирку :

DM>>function GetStringProperty(Obj: TPersistent; PropertyName: string): string;
DM>>var PropInfo: PPropInfo;
DM>>begin
DM>>  Result:=''; // эта инициализация лишняя
DM>>  if not IsPropertyInfo(Obj,PropertyName,PropInfo) then exit;
DM>>  Result:=GetStrProp(Obj,PropInfo);
DM>>end;
DM>>

procedure TForm8.FormCreate(Sender: TObject);
var
  S: string;
begin
  S := 'Test';
  Caption := S;
  S := GetStringProperty(Self, 'Абракадабра');
  ShowMessage(S);
end;

function GetStringProperty(Obj: TPersistent; PropertyName: string): string;
var PropInfo: PPropInfo;
begin
//  Result:='';
  if not IsPropertyInfo(Obj,PropertyName,PropInfo) then exit;
  Result:=GetStrProp(Obj,PropInfo);
end;

var
    s: string;
begin
    // здесь s содержит мусор, что-то вроде string($12345)
    // ...
    // Присваиваем s некоторое значение
    s := 'abcde'; // (*)
    // ....
end;

function GetString: string;
begin
  ShowMessage (Result); // 'Master Yoda'
end;

procedure TestProc;
var
  s: string;
begin
  s := 'Master Yoda';
  s := GetString;
  ShowMessage(s); // s is equal to 'Master Yoda'; s is not empty
end;

s := GetString;

  lea eax,[ebp-$08] // просто запихиваем локалный "s"
  call GetString

var
  s: string;

function GetString: string;
begin
  ShowMessage (Result); // ''
end;

procedure TestProc;
begin
  s := 'Master Yoda';
  s := GetString;
  ShowMessage(s); // s is empty
end;

s := GetString;

  lea eax,[ebp-$0c] // подсовываем невидимую локальную переменную (она ессесна пустая)
  call GetString
  mov edx,[ebp-$0c]
  mov eax,$00465c08 
  call @LStrAsg     // копируем из локальной в глобальную переменную "s"

function Foo(i: Integer): Boolean;

procedure Foo(var Result: Boolean; i: Integer);

function GetStr: string;
begin
  if Result = 'OK' then Result := 'Not OK';
end;

var
  s: string;
begin
  s := 'OK';
    s := GetStr; // будет 'Not OK'
end;