str:string;//в глобальные 

 procedure TForm1.RadioGroup1Click(Sender: TObject); 
 begin 
 ComboBox2.Items.Clear; 
 Memo2.Clear; 
 str:=''; 
 str:='Application.MessageBox('+#39+Edit1.Text+#39+','+#39+Memo1.Text+#39+','; 
 if RadioGroup1.ItemIndex=0 then 
   begin 
     ComboBox2.Items.Add('Кнопка ОК'); 
     str:=str+'MB_OK'; 
   end; 
 if RadioGroup1.ItemIndex=1 then 
   begin 
     ComboBox2.Items.Add('Кнопка ОК'); 
     ComboBox2.Items.Add('Кнопка Отмена'); 
     str:=str+'MB_OKCANCEL'; 
   end; 
 if RadioGroup1.ItemIndex=2 then 
   begin 
     ComboBox2.Items.Add('Кнопка Да'); 
     ComboBox2.Items.Add('Кнопка Нет'); 
     str:=str+'MB_YESNO'; 
   end; 
 if RadioGroup1.ItemIndex=3 then 
   begin 
     ComboBox2.Items.Add('Кнопка Да'); 
     ComboBox2.Items.Add('Кнопка Нет'); 
     ComboBox2.Items.Add('Кнопка Отмена'); 
     str:=str+'MB_YESNOCANCEL'; 
   end; 
 if RadioGroup1.ItemIndex=4 then 
   begin 
     ComboBox2.Items.Add('Кнопка Повторить'); 
     ComboBox2.Items.Add('Кнопка Отмена'); 
     str:=str+'MB_RETRYCANCEL'; 
   end; 
 if RadioGroup1.ItemIndex=5 then 
   begin 
     ComboBox2.Items.Add('Кнопка Прервать'); 
     ComboBox2.Items.Add('Кнопка Повтор'); 
     ComboBox2.Items.Add('Кнопка Пропустить'); 
     str:=str+'MB_ABORTRETRYIGNORE'; 
   end; 
 if RadioGroup2.ItemIndex=0 then str:=str+'+MB_ICONINFORMATION'; 
 if RadioGroup2.ItemIndex=1 then str:=str+'+MB_ICONERROR'; 
 if RadioGroup2.ItemIndex=2 then str:=str+'+MB_MB_ICONQUESTION'; 
 if RadioGroup2.ItemIndex=3 then str:=str+'+MB_ICONWARNING'; 
 if ComboBox1.ItemIndex=0 then str:=str+'' else str:=str+'+MB_RIGHT'; 
 ComboBox2.ItemIndex:=0; 
 str:=str+'+MB_DEFBUTTON1'; 
 str:=str+');'; 
 Memo2.Text:=str; 
 end; 
   
 procedure TForm1.FormCreate(Sender: TObject); 
 begin 
 RadioGroup1Click(nil); 
 end; 
   
 procedure TForm1.Edit1Change(Sender: TObject); 
 begin 
 RadioGroup1Click(nil); 
 end; 
   
 procedure TForm1.Memo1Change(Sender: TObject); 
 begin 
 RadioGroup1Click(nil); 
 end; 
   
 procedure TForm1.ComboBox2Click(Sender: TObject); 
 var tmp:string; 
     k:integer; 
 begin 
 Delete(str,Length(str)-1,2); 
 if ComboBox2.ItemIndex=0 then tmp:='+MB_DEFBUTTON1'; 
 if ComboBox2.ItemIndex=1 then tmp:='+MB_DEFBUTTON2'; 
 if ComboBox2.ItemIndex=2 then tmp:='+MB_DEFBUTTON3'; 
 if pos('DEFB',str)=0 then str:=str+tmp else 
   begin 
     Delete(str,length(str)-13,14); 
     str:=str+tmp; 
   end; 
 str:=str+');'; 
 Memo2.Text:=str; 
 end;