[[FGarcia]]

No esta probado epro y asi:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
with timer1 do
  begin
    Interval := 500;
    Enabled :=True;
  end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
if not PLed.Active then
  begin
    PLed.Active := True;
    with timer1 do
      begin
        Interval := 259;
        Enabled := True;
      end;
  end
else
  begin
    PLed.Active := false;
    with timer1 do
      begin
        Interval := 500;
        Enabled := True;
      end;
  end;  
end;