А одним таймером? Типа вот так (сам таймер)
Код:
var
a:integer;
procedure Time(Sender: TObject);
begin
if a=0 then begin a:=1; buf:=hstr(''); end;
if a=1 then begin a:=2; buf:=hstr(''); end;
if a=2 then begin a:=0; Timer01.enabled:=false; buf:=hstr(''); end;
end;
Остальное как у вас, ну в
Init надо задать чтоб изначально
a =0 
ps: используйте плиз тег [ code ], а то читать не удобно