Problem mit function

[Meflin]

Hi,
leider ist mir kein passender titel eingefallen
ich habe folgendes prob: ich brauche eine function, die mir aus einem string 'bla bla1 bla2 bla3 blan' über einen index blan zurückgibt, z.B. beim index 2 bla2. dazu hab ich folgendes geschrieben:

Delphi-Quellcode:

function GetParam(ParamString: string; ParamIndex: Integer): string;
var i,t,count: integer;
    x: string;
begin
  count := 0;
  for i := 0 to ParamIndex do begin
    for t := 1 to length(ParamString) do begin
      if ParamString[t] = ' ' then begin
        count := count + 1;
        if count = ParamIndex then begin
          x := Copy(ParamString,t,length(ParamString));
        end;
      end;
    end;
  end;
end;

was soweit auch geht, nur eben immer den ganzen restlichen string zurückgibt und nicht nur den string bis zum nächsten leerzeichen. ich bin ziemlich ratlos wie ich das jetzt machen soll
plz hlp!

*MFG*