ini auslesen und übergeben

[thomasvonmuenster1]

Ich speichere einen Dateinamen in der INI möchte den gerne Übergeben an SehllExecute.?

Delphi-Quellcode:

procedure TMainForm.Button3Click(Sender: TObject);
var
  ini : TIniFile;
  s: string;
  x: PAnsiChar;
 begin
  ini := TIniFile.Create('C:\test\bauer.ini');
  ListBox1.Clear;
  try
   ini.WriteString('Liste','Datei1','test2.pdf');
   ini.ReadSectionValues('Liste',ListBox1.Items);
   //ini.ReadSections(ListBox1.Items);
  //ini.ReadSection('Liste',Listbox1.Items);
  finally
  ini.Free;
  end;
   s:= ????;
   x := PChar(s);
   if ShellExecute(0, nil, x, nil, nil, 9)< 33 then showmessage('Anwendung kann nicht geoeffnet werden ');

 end;