CSV anpassen

[julchen]

Hallo,

Ich habe eine Liste, die ich nach dem Schema anpassen möchte:
Anrede;Titel;Titel;Nachname;Vorname;mit

Die Liste ist so aufgebaut:
Herr Mustermann mit
Herr Mustermann, Max mit
Herr Dr. Mustermann mit
Herr Dr. Mustermann, Max mit
Herr Prof. Dr. Mustermann mit
Herr Prof. Dr. Mustermann, Max mit

Das Semikolon nach Herr bekomme ich hin mit StringReplace.

Nach Prof. wollte ich mit pos und insert das Semikolon einfügen.
Funktioniert aber nicht.
Was mache ich da falsch?

Code:

var
  s1, s2:string;
  i: integer;
  pos1: integer;

begin
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
  s1 := Memo1.lines[i];
  pos1 := pos('Prof.', s1, pos1 + 1 );
  if pos1 <> 0 then
  begin
   Insert(';' , s1 ,  pos1);
  end;

VG, Julia