добавление в StringGrid и еще кое что.. :)

[twister_answer]

ВОбщем нужна помощь. Ситуация такая: Форма добавления. На ней 3 комбобокса, 2 едита с апдаунами, две кнопки(добавить, отменить) и... два объекта...
комбобокс1 это определение стадии Чемпионата.
комбобоксы 2и3 это названия команд.
едиты это счет между этими командами.
а в двух объектах должны быть фамилии игроков забивших голы в соответсвующих командах... вот... посколько препод сказал:"Чем меньше я буду что то набирать руками тем вам лучше".. то от мемо я отказался... так вот... помощь нужна по следующим пунктам:

1) нужно что бы при выборе в комбоксах 2 и 3 при выборе какой то строки в каком нибудь объекте типа листбокс или т.п. появлялся состав
2)при выборе одной команды из комбобокс2 нельзя было выбрать её же из комбобокс3.
3)если хоть одно поле на форме не заполнено (в том числе количество забитых мячей (тоесть сумма чисел введеных в едиты) должно быть равно количеству фамилий записанных ..неизвестно еще куда... ) то кнопка(добавить) не доступна.
пока все спасибо!

навсякий случай код к этой форме... там навярника что то еще не правильно..

unit dob;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls;

type
  Tdobav = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dobav: Tdobav;

implementation

uses start;

{$R *.dfm}

procedure Tdobav.BitBtn2Click(Sender: TObject);
begin
close;
end;
//добавление
procedure Tdobav.BitBtn1Click(Sender: TObject);
var nomrow:integer;
begin
if Caption='Добавить...' then
  begin
  col:=col+1;
  nomrow:=col;
  form1.stringgrid1.rowcount:=form1.stringgrid1.rowcount+1;
  end
  else nomrow:=form1.stringgrid1.rowcount-1;
    form1.stringgrid1.cells[0,nomrow]:=combobox1.text;
    form1.stringgrid1.cells[1,nomrow]:=combobox2.text;
    form1.stringgrid1.cells[2,nomrow]:=combobox3.text;
    form1.stringgrid1.cells[3,nomrow]:=concat(edit3.text,' : ',edit4.text);
    ComboBox1.Style:=csDropDown;
    ComboBox2.Style:=csDropDown;
    ComboBox3.Style:=csDropDown;
    ComboBox1.text:='';
    ComboBox2.text:='';
    ComboBox3.text:='';
    edit3.text:='';
    edit4.Text:='';
    form1.N11.Enabled:=true;
    form1.N12.Enabled:=true;
    dobav.Hide;
end;

procedure Tdobav.Edit3KeyPress(Sender: TObject; var Key: Char);
const Digit: Set of Char=['0' .. '9'];
begin
if not (Key in Digit) then
Key:=#0;
end;

end.