Delphi-PRAXiS - Delphi Nochmal replace

Hallo Leute,
ich habe mal wieder ein replace-Problem:
ich habe diese Definitionen hier:

Delphi-Quellcode:

			type TSmilie=record

        smilie:string;

        replace:string;

end;

var smilies:array of TSmilie;

Das Array ist ausgefüllt, hat also recht viele Smilies drin. In smilie steht das Smilie (":)",";)") und so weiter. In Replace steht der Text, durch den das jeweilige Smilie ersetzt werden soll.
In einen string s sollen jetzt alle smilie durch replace ersetzt werden.

Bis jetzt durchlaufe ich den Text für jedes Smilie ein mal und dann immer mit pos(). Allerdings ist das recht langsam. Wer kann mir eine Möglichkeit nennen, beschreiben, mit der das schneller geht!

Danke und Grüße
TO