Hjælp til SQL-streng i Delphi

Jeg har følgende kode der gemmer test fra en Tcombobox og en TMemo (var SqlTxt: string):

        DBInfoLocal.qUpdateBehandling.SQL.Clear();
        SqlTxt := '';
        SqlTxt := 'INSERT INTO behandlinger (BEHANDLING, BESKRIVELSE) VALUES("';
        SqlTxt := cbBehandling.Text + '", "';
        SqlTxt := mBeskrivelse.Text + '") ';
        SqlTxt := 'ON DUPLICATE KEY UPDATE ';
        SqlTxt := 'behandlinger SET beskrivelse = "';
        SqlTxt := SqlTxt + mBeskrivelse.Text + '" WHERE behandling = "';
        SqlTxt := SqlTxt + cbBehandling.Text + '"';
        DBInfoLocal.qUpdateBehandling.SQL.Add(SqlTxt);
        DBInfoLocal.qUpdateBehandling.ExecSQL();

Mit problem er at hvis brugeren trykker på enter i memo-boxen så kommer SqlTxt til at se sådan her ud:
'INSERT INTO behandlinger (BEHANDLING, BESKRIVELSE) VALUES("kst", "Linie1'#$D#$A'Linie2'#$D#$A'Linie3") ON DUPLICATE KEY UPDATE behandlinger SET beskrivelse = "Linie1'#$D#$A'Linie2'#$D#$A'Linie3" WHERE behandling = "kst"'

'#$D#$A' bryder sql'en, hvordan kommer man udenom sådan et problem?

På forhånd tak for hjælpen
Jesper