функции в delphi

[-COREY-]

Доброго времени суток!Помогите пожалуйста исправить ошибку и если так нельзя подскажите как переделать

procedure CreateList(var x:TList);
begin
  x:=TList.Create;
  x.Count:=2;
  x.Items[0]:=h1;{h1, h2 объекты THorse}
  x.Items[1]:=h2;
end;

procedure CreateList1(var x:TList);
var r,r1:^cell;
begin
  x:=TList.Create;
  x.Count:=2;
  x.Items[0]:=r;
  x.Items[1]:=r1;
  r.c:=h1.h_c;
  r1.c:=h2.h_c;
end;

function GetFigure(cell:shortint):THorse;{THorse это класс}
var i:shortint;
begin
  for i:=0 to 1 do
  if list2.Items[i]=cell then Result:=list.items[i];
end;


function GetCell(cell:shortint):shortint;
var i:shortint;
begin
  for i:=0 to 1 do
  if list2.Items[i]=cell then Result:=list2.Items[i];
end;

При компиляции delphi ставит курсор на эти строчки и пишет "[Pascal Error] Unit1.pas(129): E2015 Operator not applicable to this operand type"

if list2.Items[i]=cell then Result:=list.items[i];

if list2.Items[i]=cell then Result:=list2.Items[i];

list и list2 типа TList;

[Stilet]

Может
if list2.Items[i]=cell then Result:=list.items.object[i];

[-COREY-]

пишет undeclared identifier

[mihali4]

При компиляции delphi ставит курсор на эти строчки и пишет "[Pascal Error] Unit1.pas(129): E2015 Operator not applicable to this operand type"

Так у вас функции возвращать должны тип shortint, а вы лупите в Result строки...

[Altera]

Позор мне, он разве устанавливать размер таким способом можно?

[Stilet]

Это ты про x.Count:=2;?
Можно. В TList такое предусмотренно )