[davin4u]

Ладно с этим сам разобрался уже, появилась другая проблема...

Код:

type
    TPositionArray=array[1..100] of integer;

var
    PositionArray:TPositionArray;
    Function Position(line,key:string):TPositionArray;

Function Position(line,key:string):TPositionArray;
var i:integer;
begin
  i:=1;
  while pos(key,line)<>0 do
    begin
      Result[i]:=pos(key,line);
      delete(line,pos(key,line),length(key));
      inc(i);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var str1,str2:string;
begin
  str1:='text some some some text some';
  str2:='str';
  PositionArray:=Position(str1, str2);
end;

При компиляции подсвечивает строку PositionArray:=Position(str1, str2); две ошибки на строке, одна missing operator or semicolon, другая Incompatible types: 'TPositionArray' and 'TPosition'. Не пойму в чем дело, похожую задачу решал, использовал точно такой же метод, все делал так же и работало... Не подскажите что может быть?