[juliopag1]

Bueno, ya hice la tabla y todo, pero cuando le asigno la variable "Archivo", me dice

  incompatible type 'String' and 'TFileStream'

o sea, incompatible de datos, la pregunta es porque?, si segun lo de ahorita es un BlobField.

¿Que hice mal?

procedure TfrmMoveData.Button1Click(Sender: TObject);
Const
  DirI = 'D:\nux.mp3'; DirD = 'C:\nux.mp3';
Var
  Archivo, Destino : TFileStream;
  Tamano1, Tamano2 : Integer;
  Buffer : Array [0..9999] of Char;
begin
  Try
	Archivo := TFileStream.Create(DirI, fmOpenRead);
	Tamano1 := Archivo.Size;
 
	Destino := TFileStream.Create(DirD, fmCreate or fmOpenWrite and fmShareDenyWrite);
 
	While Destino.Size < Archivo.Size Do Begin
	  Tamano2 := Archivo.Read(Buffer,SizeOf(Buffer));
	  Destino.Write(Buffer, Tamano2);
	End;

	With TMoveData Do Begin
	  Append;
	  TMoveDataStream.Value := Archivo;
	  ApplyUpdates;
	  Post;
	End;

  Finally
	Archivo.Free;
	Destino.Free;
  End;

end;