Sonderzeichen verarbeiten mit StringList

[piirate]

Hallo, ich such jezt schon den ganzen Tag aber komme leider nicht weiter.
Mein IST Zustand:
Ich lese meine Zwischenablage in die Stringlist und will diese Daten in eine Datenbank schreiben.
Alles kein Problem, bis ich halt Sonderzeichen einfüge.
Ab dem Zeitpunkt geht dann gar nichts mehr.

SOLL Zustand:
Naja ich soll auch die Sonderzeichen irgendwie einfügen können.

Beispieldaten: Hund,4
Also ich such dann nach dem Delimiter (',') und füge die 2 Daten dann in eine Tabelle ein..

Delphi-Quellcode:

procedure addItems();
var
ts : TStringList;
begin

ts := TStringList.Create;
ts.Text := Clipboard.AsText;

delim := ',';
   for i:=0 to ts.Count-1 do begin
      if Trim(ts[i]) > '' then begin
         tmp := Uppercase(ts[i]);
         break;
      end;
   end;

   if trim(tmp) = '' then exit;
   for i:=1 to Length(tmp) do begin
      if Pos(Copy(tmp,i,1),'1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ/- ') = 0 then begin
         delim := tmp[i];
         break;
      end;
   end;
QryData.Post;

Ich hoffe jemand kann mir helfen