Загрузка двух txt в один StringGrid

[Dotha]

Здравствуйте, господа программисты!

Ни как не могу справиться, помогите пожалуйста.

на форме: ComboBox1, ComboBox2, StringGrid1.

с первого ComboBox1 загружаем из 1.txt в StringGrid1,
со второго ComboBox2 загружаем из 2.txt в StringGrid1.

procedure TForm2.FormCreate(Sender: TObject);
var
ZagruzkaMenu1, ZagruzkaMenu2 :TStringList;

begin
  ZagruzkaMenu1:=TStringList.Create;
  ZagruzkaMenu1.LoadFromFile('bases\menu1.txt');
  ComboBox1.Items:=ZagruzkaMenu1;
  ZagruzkaMenu1.Free;
  
  ZagruzkaMenu2:=TStringList.Create;
  ZagruzkaMenu2.LoadFromFile('bases\menu2.txt');
  ComboBox2.Items:=ZagruzkaMenu2;
  ZagruzkaMenu2.Free;
end;


procedure TForm2.LoadGrid1;
var
  f: textfile;
  temp, x, y: integer;
  tempstr: string;
begin

  assignfile(f, 'bases\'+ ComboBox1.text);
  reset(f);
  readln(f, temp);
  StringGrid1.colcount := temp;
  readln(f, temp);
  StringGrid1.rowcount := temp;
  for X := 0 to StringGrid1.colcount - 1 do
    for y := 0 to StringGrid1.rowcount - 1 do
    begin
      readln(F, tempstr);
      StringGrid1.cells[x, y] := tempstr;
    end;
    closefile(f);

end;

procedure TForm2.ComboBox1Change(Sender: TObject);

begin
LoadGrid1;
end;

procedure TForm2.ComboBox2Change(Sender: TObject);

begin
LoadGrid2;
end;

procedure TForm2.LoadGrid2;
var
  f: textfile;
  temp, x, y: integer;
  tempstr: string;
begin

  assignfile(f, 'bases\'+ ComboBox2.text);
//Что здесь писать понятия не имею
//надо посмотреть сколько StringGrid1.rowcount уже заполнено 
//и начать запись со следующего StringGrid1.rowcount
end;

Пожалуйста, помогииииите!

[eoln]

Столбцов столько же будет? Если да, то добавь переменную для запоминания откуда начинать, затем заполняй таблицу почти также. С минимальными изменениями будет так

begin
  OldRowCount := StringGrid1.rowcount;
  assignfile(f, 'bases\'+ ComboBox2.text);
  ...
  StringGrid1.rowcount := temp+OldRowCount;
  for X := 0 to StringGrid1.colcount - 1 do
    for y := OldRowCount to StringGrid1.rowcount - 1 do
    ...

[Slym]

для начала:

procedure TForm2.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.LoadFromFile('bases\menu1.txt');
  ComboBox2.Items.LoadFromFile('bases\menu2.txt');
end;