How to migrate firebird data to sql database using delphi ?

Hi all,
I got the solution. If u guys want to take a look. I am giving it here. Thanks.

procedure TForm1.Button1Click(Sender: TObject);
//var
//iRecCnt:integer;
begin

SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('Select count(*) as val from ASSETCATEGMAS');
SQLQuery1.Open;
iRecCnt:=SQLQuery1.Fieldbyname('val').Asinteger;

SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('Select * from ASSETCATEGMAS');
SQLQuery1.Open;
Pb.Min:=0;
Pb.Max:=iRecCnt;
Pb.Position:=0;
Pb.Step:=1;
SQLQuery1.First;
while not SQLQuery1.Eof do
begin

if not ADOTable1.Locate('ACATID',SQLQuery1.Fieldbyname('ACATID').AsInteger,[]) then
begin
ADOTable1.Append;
ADOTable1.FieldByName('ACATID').AsInteger:= SQLQuery1.Fieldbyname('ACATID').AsInteger;
end
else
ADOTable1.Edit;
ADOTable1.FieldByName('CATCODE').AsString:=SQLQuery1.Fieldbyname('CATCODE').AsString;
ADOTable1.FieldByName('ACATDESC').AsString:=SQLQuery1.Fieldbyname('ACATDESC').AsString;
ADOTable1.Post;
inc(i);

SQLQuery1.Next;
Pb.StepIt;
end;
Pb.Position:=0;
showmessage(Inttostr(SQLQuery1.recordcount));
end;