Можно так:
var
s:string;
r:real;
begin
r:=12;
s:=''+r;//преобразуем действительное число в строку, ошибки здесь не будет
if Trunc(r)=r then //проверяем, целое число или нет
s:=copy(s,0,pos(s,'.'));//Если целое - обрубаем нули
drawText(s, 0, 0);
repaint;
delay(2000);
end.