2 Werte von 2 Ini-File gleichzeitig auslesen

[Delphiturbo]

Hallo,

mein Programm liest und holt 2 Werte von 2 Ini-Files
MyIniFile1.ini
MyIniFile2.ini

Ich habe den gleichen Code : Einmal OnCreate (liest von MyIniFile1.ini)
und einmal in OnShow (liest von MyIniFile2.ini)

Ich finde das ist zuviel
wie kann ich mit einem Code die 2 Werte auslesen?

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  MyIniFile: TInifile;
  FName: String;
begin
  FName := ExtractFilePath(ParamStr(0)) + 'MyIniFile1.ini';
  if FileExists(FName) then
  begin
    MyIniFile := TIniFile.Create(FName);
    try
      S4 := MyIniFile.ReadString('Section1', 'text1', 'nicht gefunden')
    finally
      MyIniFile.Free;
    end;
  end
  else
  begin
    ShowMessage('nicht gefunden ');    
  end;
end;