procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
memo1.MaxTextSize:=1000000;
end;