procedure TForm6.Button2Click(Sender: TObject);
var
    q : TEDBQuery;
begin
    Caption := '?';
    if db.Connected = False then
        Exit;

    q := TEDBQuery.Create(nil);
    try
        q.DatabaseName := db.DatabaseName;
        q.SQL.Text := 'select * from naplo where 0=1';
        q.RequestSensitive := True;
        q.Open;
        // NO APPEND!!!
        Q.FieldByName('leiras').AsString := 'kísdksddlas jksnauia uibh'#13'kfnaskjasdasjasdasjkasdk';
        Q.FieldByName('megjegyzes').AsString := 'kísdksddlas jksnauia uibh'#13'kfnaskjasdasjasdasjkasdk'#13 + 'kísdksddlas jksnauia uibh'#13'kfnaskjasdasjasdasjkasdk';
        Q.FieldByName('datum').AsDatetime := Date;
        Q.FieldByName('taska').AsInteger := 118212;
        Q.Post;

    finally
        q.Free;
    end;

end;