по 80 символов в строке

[lich king]

как сделать по 80 символов в строке

procedure TForm1.N801Click(Sender: TObject);
var
a,b,I,linenum:integer;
 S,sf:string;

begin
for I := 0 to I  do RichEdit1.Lines.Count
begin
 with RichEdit1 do
begin
SelLength := 0;
SelStart := 80;
form1.RichEdit1.SelText:=#10#13;

  end;

end;
end;

не робит