delphi中如何用一个按钮控制开与关两个状态

delphi中如何用一个按钮（什么按钮控件），控制开与关两个状态？点一下按钮为开，点第二次为关，未点第二次时一直处于开的状态。谢谢，初学delphi，书又未到，麻烦会的帮助下。

重新写了一下，完整的如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
iStatus:Boolean;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
iStatus := not iStatus;
if iStatus then
Button1.Caption := '开'
else
Button1.Caption := '关';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption := '关';
iStatus := False;
end;

end.

用speedbutton

直接用checkbox不就行了？选中就为开，没选中就为关。

你好！ 可以，像这样写： if button.caption='开' then begin button.caption='关'; end else begin button.caption='开'; end; 我的回答你还满意吗~~