Это будет по нажатию кнопки смена таймера.
А если надо чтоб он САМ тикал то 3 мин, то 1 мин - то так:
Код:
var fl:byte=0;
..
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//...
fl:=1-fl;
if fl=0 then
Timer1.interval:=3*60000
else
Timer1.interval:=1*60000
//...
end;