Что тут не так? Ругается почему-то....

[kat297]

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
Delims = [' ', '.', ',', ':', ';', '!', '?', '-', Char(9), Char(10), Char(13)];
var
StrSrc, StrRes : String;
i, j, k : Integer;
Cnt : Integer;
Pos1, Pos2 : Integer;
begin
StrSrc := Edit1.Text;
SetLength(StrRes, Length(StrSrc));
Pos1 := 0;
Pos2 := 0;
Cnt := 0;
for i := 1 to Length(StrSrc) do begin
if StrSrc[i] in Delims then begin
StrRes[i] := StrSrc[i];
Continue;
end;

if ( Pos1 = 0 ) then Pos1 := i;
if i = Length(StrSrc) then
Pos2 := i
else if StrSrc[i + 1] in Delims then
Pos2 := i ;

if Pos2 > 0 then begin
Inc(Cnt);
//Если слово на чётной позиции, удаляем его.
if Cnt mod 2 = 0 then
begin
for j := Pos1 to Pos2 do delete (StrSrc[j] ,pos1, j)
//Если слово на нечётной позиции, переписываем его по буквам в обратном порядке.
end
else
begin
k := Pos1;
for j := Pos2 downto Pos1 do begin
StrRes[k] := StrSrc[j];
Inc(k);
end;
end;
Pos1 := 0;
Pos2 := 0;
end;
end;
Edit2.Text := StrRes;
end;
end.

Вот где красным помечено... А условие:
В заданном предложении удалите каждое второе слово, а оставшиеся слова переверните.

[Volt]

Потому что у процедуры delete(S:String,Index:Integer, Count:Integer); первый параметр string а выему char зачемто указываете. Процедура Delete удаляет кол-во символов Count из строки S, начиная с позиции Index. Процедура вырезает символы из строки и после этого сдвигает символы справа на их место.

Source := '12345678';
  Delete(Source, 3, 4);    // Удаление 3-го, 4-го, 5-го и 6-го символов