[v1s2222]

Почему не получается? По вашему коду все работает...

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.ReadOnly := True; // не обязательно конечно 
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if(ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 0) then
    Edit1.Text := '1'
  else
    if(ComboBox1.ItemIndex = 1) and (ComboBox2.ItemIndex = 1) then
      Edit1.Text := '2';