Table1.Open;
  Table2.Open;
  while not Table1.EOF do
    if not Table1.FieldByName('Comment').IsNull then
    begin
      Table2.Insert;
      Table2.FieldByName('<имя поля1>'):= Table1.FieldByName('<имя поля1>')
      Table2.FieldByName('<имя поля2>'):= Table1.FieldByName('<имя поля2>')
      Table2.FieldByName('<имя поля3>'):= Table1.FieldByName('<имя поля3>')
      Table2.FieldByName('<имя поля4>'):= Table1.FieldByName('<имя поля4>')
      Table2.Post;
    end;