public
    { Public declarations }
    procedure SetIniFile(Strtitle, StrName :String;FileName : String);
    function ReadIniFile(Strtitle, StrName :String): String;

function TForm11.ReadIniFile(Strtitle, StrName: String): String;
var
  iniFile : TIniFile;
begin
  iniFile := TIniFile.Create(ExtractFileDir(Application.ExeName)+'\Config.ini');
  Result := iniFile.ReadString(Strtitle,StrName,'');
  IniFile.Free;
end;

procedure TForm11.SetIniFile(Strtitle, StrName :String; FileName: String);
var
  iniFile : TIniFile;
begin
  iniFile := TIniFile.Create(ExtractFileDir(Application.ExeName)+'\Config.ini');
  showmessage(ExtractFileDir(Application.ExeName));
  iniFile.WriteString(Strtitle,StrName,fileName);
  IniFile.Free;
end;


//delphi/6725