Data fra tekstfil

Hej

Jeg har nogle tekstfiler som jeg gerne skulle hente noget data ud af. Så vidt jeg kan forstå på nedenstående, henter den data efter teksten "brugernavn". Problemet ligger så i, at der godt kan være mellemrum i folks brugernavne. Hvordan henter jeg dem så i et stykke, uden at der kommer kolon i mellem navnene?

if pos('Brugernavn:', Teksten) <> 0 then begin
                    delete(Teksten,1,pos('Brugernavn:', Teksten)+8);
                    while Teksten[1] = ' ' do begin
                        delete(Teksten,1,1);
                    end;
                    ii := 1;
                    TekstRes := TekstRes + ';' + copy(Teksten,1,pos(' ', Teksten)-1);
                    delete(Teksten,1,pos(' ', Teksten));
                    while Teksten[1] = ' ' do begin
                        delete(Teksten,1,1);
                    end;
                    TekstRes := TekstRes + ';' + copy(Teksten,1,pos(' ', Teksten)-1);
                    delete(Teksten,1,pos(' ', Teksten));
                    ii := 1;
                    CheckNaeste := 0;
                    while (ii <= length(Teksten)) and (CheckNaeste=0) do begin
                        if Teksten[ii] = ' ' then begin
                            CheckNaeste := ii;
                        end;
                        inc( ii );
                    end;
                    if CheckNaeste <> 0 then begin
                        delete(Teksten, CheckNaeste, 255);
                    end;
                    ii := 0;
                    TekstRes := TekstRes + ';' + Teksten;
                end;