Ini-Datei in TMemoryStream laden und per TMemInifile lesen

[WebtoolMaster]

Hab mal fongenden Code gefunden.
Wie wende ich diese Code an um daraus eine eigene Procedure zu machen.

Delphi-Quellcode:

var
    SL: TStringList;
    MI: TMemIniFile;
begin
  SL := TStringList.Create;
  try
    SL.Add('[MySection]');
    SL.Add('MyKey=MyValue');
    MI := TMemIniFile.Create('');
    try
      MI.SetStrings(SL);
      ShowMessage(MI.ReadString('MySection','MyKey','default'));
    finally
      MI.Free;
    end;
  finally
    SL.Free;
  end;