procedure TfmGeneral.Button2Click(Sender: TObject);
begin
TestinsertDataInSERVERS(RichEditNotes);
end;

function TestinsertDataInSERVERS(perRichEditNote:TRichEdit):TIBQuery;
var
  per_IBQuery:TIBQuery;
  Stm: TMemoryStream ;  //USES dbtables TBLTMemoryStream;
  
begin   
      // ïðîöåäóðà äëÿ çàïèñè ââåäåíûõ äàííûõ
      per_IBQuery:=my_initialization_TIBQuery_insert(per_IBQuery); //èíèöèàëèçèðóåì ïåðåìåííóþ è ïåðåäàåì åé ïàðàìåòðû
      per_IBQuery.Active := False;
      per_IBQuery.SQL.Clear;
      per_IBQuery.SQL.Add('insert into SERVERS '
                          + '(notes'
                          + ')'
                          + ' values ('
                          + ':perNOTES'
                          + ')');

      Stm := TMemoryStream.Create;
      Stm.Position:=0;
      try
          perRichEditNote.PlainText := False;
          perRichEditNote.Lines.SaveToStream(Stm);
          per_IBQuery.ParamByName('perNOTES').LoadFromStream( Stm, ftBlob);  
          Stm.Position := 0;
      finally
          FreeAndNil(Stm);
      end;

      per_IBQuery.ExecSQL;
      fmConnectToBase.IBTransaction2.Commit;
      FreeAndNil(per_IBQuery); //Ýêâèâàëåíòíî: People. Free; People := nil;
end;

procedure TfmGeneral.Button3Click(Sender: TObject);

begin
TestGetDataFromSERVERS(RichEditNotes)
end;


function TestGetDataFromSERVERS(perRichEditNote:TRichEdit):TRichEdit;
var
  per_IBQuery:TIBQuery;
  stm: TStream;

begin
per_IBQuery:=my_initialization_TIBQuery_insert(per_IBQuery); //èíèöèàëèçèðóåì ïåðåìåííóþ è ïåðåäàåì åé ïàðàìåòðû
per_IBQuery.Active:=false;
per_IBQuery.SQL.Clear;
per_IBQuery.SQL.Add('select * from SERVERS WHERE ID = 312');

per_IBQuery.Active:=true;
per_IBQuery.Last;

stm :=  per_IBQuery.CreateBlobStream( per_IBQuery.FieldByName('NOTES'), bmRead);
try // finally         // ãðóçèìñÿ èç íåãî
  Stm.Position:=0;
  perRichEditNote.PlainText:=false;
  perRichEditNote.Lines.LoadFromStream(stm);
  //Stm.Read(perRichEditNote, sizeof(perRichEditNote) );
  result:=perRichEditNote;
finally
  FreeAndNil(Stm);
  FreeAndNil(per_IBQuery); //Ýêâèâàëåíòíî: People. Free; People := nil;
end;