procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str:= 'aaa'   #13 #10   'bbbb'   #13 #10   'ccc'   #13 #10;
  q1.Close;
  q1.SQL.clear;
  q1.sql.text:= 'insert into aa ([memo]) values ('  ''''   str   ''''   ')';
  q1.execsql;
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  q1.Close;
  q1.SQL.clear;
  q1.sql.text:= 'select * from aa';
  q1.open;
  while(not q1.eof)do begin
    memo1.Lines.add(q1.fields.fields[0].asstring);
    memo1.Lines.add(q1.fields.fields[1].asstring);
    q1.next;
  end;
end;