Плин сделай очищение присваиванием пустого значения!!!

как писал во втором пункте W!z@rD

к примеру:

если это простой TEdit

edit1.text:='';

Если это что-то типа TMemo то как писал W!z@rD в п.1
сделай

memo1.Clear;

З.Ы. W!z@rD не сочти за плагиат