Panel1.Height := h div 3;
    dbreQuestionText.Width := w - h div 3;

    AnswerCount := 0;
    if ((Info.AnswerPicture1.Height <> 0) or (Info.AnswerText1DataSource.DataSet.FieldByName(Info.AnswerText1DataField).AsStr ing <> '')) then
     AnswerCount := AnswerCount + 1;
    if ((Info.AnswerPicture2.Height <> 0) or (Info.AnswerText2DataSource.DataSet.FieldByName(Info.AnswerText2DataField).AsStr ing <> '')) then
     AnswerCount := AnswerCount + 1;
    if ((Info.AnswerPicture3.Height <> 0) or (Info.AnswerText3DataSource.DataSet.FieldByName(Info.AnswerText3DataField).AsStr ing <> '')) then
     AnswerCount := AnswerCount + 1;
    if ((Info.AnswerPicture4.Height <> 0) or (Info.AnswerText4DataSource.DataSet.FieldByName(Info.AnswerText4DataField).AsStr ing <> '')) then
     AnswerCount := AnswerCount + 1;
    if (AnswerCount = 0) then
     AnswerCount := 1;
    Panel4.Width := w div AnswerCount;
    Panel5.Width := w div AnswerCount;
    Panel6.Width := w div AnswerCount;
    Panel7.Width := w div AnswerCount;

    if (Info.QuestionDataSource.DataSet.FieldByName(Info.QuestionDataField).AsString = '') then
     dbreQuestionText.Visible := False;
    if (Info.QuestionPicture.Height = 0) then
     begin
     Panel2.Visible := False;
     dbreQuestionText.Align := alClient;
     Panel1.Height := h div 4;
     end;

    temp := h - (stQuestion.Height + Panel1.Height + stAnswers.Height);
    if (Info.AnswerText1DataSource.DataSet.FieldByName(Info.AnswerText1DataField).AsStr ing <> '') then
     if (Info.AnswerPicture1.Height = 0) then
      begin
      dbreAnswer1.Height := temp - bbAnswer1.Height;
      iAnswer1.Visible := False;
      end
     else
      begin
      dbreAnswer1.Height := temp - min(w div AnswerCount, temp div 2) - bbAnswer1.Height;
      iAnswer1.Height := min(w div AnswerCount, temp div 2);
      end
    else
     if (Info.AnswerPicture1.Height = 0) then
      Panel4.Visible := False
     else
      begin
      dbreAnswer1.Visible := False;
      iAnswer1.Height := temp - bbAnswer1.Height;
      end;

unit Unit4;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 Buttons, StdCtrls, ExtCtrls, registry, Spin, VasMessageBox;

type
 TForm4 = class(TForm)
   RadioGroup1: TRadioGroup;
   RadioButton1: TRadioButton;
   RadioButton2: TRadioButton;
   CheckBox2: TCheckBox;
   GroupBox1: TGroupBox;
   SpinEdit4: TSpinEdit;
   SpinEdit5: TSpinEdit;
   SpinEdit1: TSpinEdit;
   GroupBox2: TGroupBox;
   Label1: TLabel;
   SpinEdit2: TSpinEdit;
   CheckBox3: TCheckBox;
   Label2: TLabel;
   SpinEdit3: TSpinEdit;
   Label3: TLabel;
   Label4: TLabel;
   Label8: TLabel;
   Label9: TLabel;
   Label10: TLabel;
   VasMessageBox1: TVasMessageBox;
   Label5: TLabel;
   Label6: TLabel;
   Label7: TLabel;
   SpeedButton1: TButton;
   SpeedButton2: TButton;
   ComboBox1: TComboBox;
   Label11: TLabel;
   Label12: TLabel;
   procedure SpeedButton1Click(Sender: TObject);
   procedure OnCreate(Sender: TObject);
   procedure OnClose(Sender: TObject; var Action: TCloseAction);
   procedure SpeedButton2Click(Sender: TObject);
   procedure FormKeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form4: TForm4;

implementation
uses unit1;
{$R *.DFM}

procedure TForm4.SpeedButton1Click(Sender: TObject);
var Registry: TRegistry;
begin
if (SpinEdit5.Value>SpinEdit4.Value) and
(SpinEdit1.Value>SpinEdit5.Value) then
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHINE;
Registry.OpenKey('SOFTWARE\GART\CS',False);

if CheckBox2.checked=true then
Registry.WriteInteger('Default Minization',1)
else
Registry.WriteInteger('Default Minization',0);

if RadioButton1.Checked=True then
Registry.WriteInteger('Default Status',1);

if RadioButton2.Checked=True then
Registry.WriteInteger('Default Status',2);

Registry.WriteInteger('Time Good',SpinEdit4.Value);
Registry.WriteInteger('Time Normal',SpinEdit5.Value);
Registry.WriteInteger('Time Answer',SpinEdit1.Value);

Registry.WriteInteger('Packet Item',ComboBox1.ItemIndex);
Registry.WriteInteger('Packet Size',StrToInt(ComboBox1.Text));

Form1.NMPing1.PacketSize:=Registry.ReadInteger('Packet Size');

if CheckBox3.checked=true then
Registry.WriteInteger('Corupted Message',1)
else
Registry.WriteInteger('Corupted Message',0);

Registry.WriteInteger('Time Automatic',SpinEdit2.Value);
Registry.WriteInteger('Time Corupted',SpinEdit3.Value);

timealarm:=Registry.ReadInteger('Time Corupted');
CorrMess:=Registry.ReadInteger('Corupted Message');

//качество прохождения запроса
mainbedtime:=Registry.ReadInteger('Time Answer');
maingoodtime:=Registry.ReadInteger('Time Good');
mainnormaltime:=Registry.ReadInteger('Time Normal');

Registry.Free;
///автоматический режим опроса
Form1.AutoTimer.Interval:=SpinEdit2.Value*60*1000;

if RadioButton1.Checked=True then
begin
Form1.SpeedButton4.Enabled:=true;
Form1.AutoTimer.Enabled:=False;
automode:=1;
end;

if RadioButton2.Checked=True then
begin
Form1.SpeedButton4.Enabled:=false;
Form1.AutoTimer.Enabled:=True;
automode:=2;
end;

Form1.Showstatus('Настройки змінені');
Form4.Close;
end

else
VasMessageBox1.Execute;

end;

procedure TForm4.OnCreate(Sender: TObject);
var Registry: TRegistry;
begin

Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHINE;
Registry.OpenKey('SOFTWARE\GART\CS',False);

if Registry.ReadInteger('Default Minization')<>0 then
CheckBox2.checked:=true;

if Registry.ReadInteger('Default Status')=1 then
RadioButton1.Checked:=True;
if Registry.ReadInteger('Default Status')=2 then
RadioButton2.Checked:=True;

SpinEdit4.Value:=Registry.ReadInteger('Time Good');
SpinEdit5.Value:=Registry.ReadInteger('Time Normal');
SpinEdit1.Value:=Registry.ReadInteger('Time Answer');
ComboBox1.ItemIndex:=Registry.ReadInteger('Packet Item');

if Registry.ReadInteger('Corupted Message')<>0 then
CheckBox3.checked:=true;

SpinEdit2.Value:=Registry.ReadInteger('Time Automatic');
SpinEdit3.Value:=Registry.ReadInteger('Time Corupted');

Registry.Free;

Form4.ShowModal;
end;

procedure TForm4.OnClose(Sender: TObject; var Action: TCloseAction);
begin
systemloc:=0;
Action:=caFree;
end;

procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
Form4.Close;
end;

procedure TForm4.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if key=VK_ESCAPE then
SpeedButton2Click(nil);
end;

end.

switch(forumAttribute)
{
case 18:
case 530:
  iSrc = imgSrc[0];
  break;
...

switch (ch) {
 case 'A': wasA = true;
 case 'B': printf("A or B\n"); break;
 default: printf("wtf?\n");
}
if (wasA) printf("AAAAAA!\n");

      if (ModularOrder.MANYTOONE_STATE == UnicmDefines.CATALOG_ORDER_STATE_FINISHED)

if (строка1==строка2) ...