{
Clear text: remove all lines, but do not free text instance.
}
procedure ClearText(aText:Integer);
var i,N:Integer; b:Boolean;
begin
 N:=text_NumLn(aText);
 for i:=N-1 downto 0 do b:=text_DelLn(aText,i);
end; 
