Problemer med RightJustify

Hejsa.

Er der een eller anden, der kan forklare, hvorfor jeg får en fejl i linien med TextOut nedenfor :


procedure TForm1.RightJustifyText(Grid: TStringGrid; Column: integer);
var
  i, W: integer;
begin
  W := 0;
  for i := 0 to (Grid.RowCount - 1) do begin
    W := Grid.ColWidths[Column] - Grid.Canvas.TextWidth(Grid.Cells[Column, i])-2;
    TextOut(i, W, Grid.Cells[Column, i]);
  end;
end;

Fejlen hedder 'Incompatible types: 'Integer' and 'string''.

Jeg forstår ikke hvorfor ???

H.