1:
2:
3:
4:
5:
6:

case SQLDataType[ColumnProperties[i].iFieldType] of
 _string:            sData :=   sData + char(39) +  Collect[ColumnProperties[i].sFieldName] + char(39);
 _float:             sData := sData + floatToStr (Collect[ColumnProperties[i].sFieldName]);
 _integer:           sData := sData + IntToStr(Collect[ColumnProperties[i].sFieldName]);
 _datetime:          sData := sData + DateTimeToStr(Collect[ColumnProperties[i].sFieldName]);
 _binary:            sData := sData + VarToStr(Collect[ColumnProperties[i].sFieldName]);					

1:
2:
3:
4:
5:
6:

var
  MS: TMemoryStream;
begin
  { ... }
  MS := DeineQuery.CreateBlobStream(Deinequery.FieldByName('Feldname')) AS TMemoryStream;
  { do something with MS }					

1:
2:
3:
4:
5:
6:
7:

INSERT INTO TabellenName(Feld1, Feld2, Feld3, ... FeldN)
SELECT Feld1
     , Feld2
     , Feld3
     , ...
     , FeldN
FROM AndereTabelle