[[enecumene]]

Empezado por roman

¿Por qué MS.Seek(80,0)? ¿De dónde sale ese 80?

Yo pondría MS.Seek(0, soFromBeginning)

// Saludos

De la ayuda de Delphi:

The following example deletes the stream from position 60 within the blob stream to the end.

procedure TForm1.Button1Click(Sender: TObject);

var
Stream1: TBlobStream;
begin
Table1.Edit;
if Table1.State = dsEdit then
begin
Stream1 := Table1.CreateBlobStream(FieldByName('Notes', bmReadWrite);
try
Stream1.Seek(60, 0); { Move to byte 60}
Stream1.Truncate; { Delete from current position (60) to end of stream.}
Table1.Post;
finally
Stream1.Free;
end;
end;

end;

¡gracias Roman ahora sí me funcionó!.

Saludos.