Untitled

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  jpeg, ExtCtrls, StdCtrls, inifiles;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    height, width:integer;
  end;

var
  Form1: TForm1;
  IniFile : TIniFile;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
IniFile := TIniFile.Create('Boss-alertv1.ini');
if radiobutton1.checked=true then
begin
width:=800;
height:=600;
end;
With IniFile do
  begin
    WriteInteger('Screen','width', width);
    WriteInteger('Screen','height', height);
  end;
end;
end.