Перенос данных из одной таблицы в другую

[D.O.G]

Доброго времени суток. Есть база на mysql есть две таблицы, cabinets и cab. Таблица cabinets состоит из столбцов
____________________________
|number|comp|printer|comment|
--------------------------------
Табица cab состоит из столбцов
________________
|id|number|printer|
------------------

нужно перенести данные из таблицы cabinets в таблицы cab по соответствующим столбцам. Как реализовать?

[_SERGEYX_]

    cabinets.first;
    while not cabinets.eof do
    begin
      cab.insert;
      cab.FieldByName('number').asinteger := cabinetsnumber.Value;
      cab.FieldByName('printer').asstring := cabinetsprinter.Text;
      cab.post;
      cabinets.next;
    end;

[D.O.G]

на sql надо)))

[_SERGEYX_]

    cabinets.first;
    while not cabinets.eof do
    begin
   Query.Close;
   Query.SQL.Clear;
   Query.SQL.Add('insert into cab (number,printer) Values ( '+
   QuotedStr(cabinetsnumber.text)+','+
   QuotedStr(cabinetsprinter.Text)+')');
   Query.ExecSQL;

      cabinets.next;
    end;

Пишу без Delphi, может ошибся где....