procedure TMainForm.FormCreate(Sender: TObject);
Var
  Params: TStringList;
begin
  Params := TStringList.Create;
  Try
    Params.LoadFromFile('config.ini');
    Caption := Caption + ' ' + Params.Values['CompanyName'];
  Finally
    Params.Free;
  End;
end;