изменить при нажатии button1 caption

[fize]

имеется простейшая функция-

procedure TForm1.Button1Click(Sender: TObject);
var
typ,txt: string;
begin

if portnum<>0 //
then INTERFACE_CLOSE; // завершаем соединение

txt:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
typ:=copy(txt,1,3);

if typ='UFS' // соединяемся
then
begin

UFSNum := StrToInt(copy(txt,4,length(txt)-3))-1;
PortNum := UFSNum+1;
ComOpen;

end;
end;

нужно сделать так что бы -
жмем button1 с надписью connect. надпись меняется на disconn и при повторном нажатии выполняется функция
if portnum<>0
then INTERFACE_CLOSE;

[Лубышев]

procedure TForm1.Button1Click(Sender: TObject);
var
typ,txt: string;
begin

if button1.Caption='connect' then button1.Caption:='disconn'
else 
begin
if portnum<>0 //
then INTERFACE_CLOSE; // завершаем соединение

txt:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
typ:=copy(txt,1,3);

if typ='UFS' // соединяемся
then
begin

UFSNum := StrToInt(copy(txt,4,length(txt)-3))-1;
PortNum := UFSNum+1;
ComOpen;

end;
end;
end;

так пойдет?
или так надо?:

procedure TForm1.Button1Click(Sender: TObject);
var
typ,txt: string;
begin

if button1.Caption='connect' then button1.Caption:='disconn'
else 
begin
if portnum<>0 //
then INTERFACE_CLOSE; // завершаем соединение
end;
txt:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
typ:=copy(txt,1,3);

if typ='UFS' // соединяемся
then
begin

UFSNum := StrToInt(copy(txt,4,length(txt)-3))-1;
PortNum := UFSNum+1;
ComOpen;

end;
end;

[fize]

не так не так не работает. без изменений

[Лубышев]

что именно не работает? пришли весть проект

[fize]

Сообщение от Лубышев

что именно не работает? пришли весть проект

все осталось без изменений. проект присылать смысла нет. без ключа не работает

[fize]

ладно. попробую объяснить проще что требуется.
поместили на форму баттон1. написали ShowWindow(Form1.Handle,SW_MAXIMIZE );
скомпилировали. при нажатии баттон1 форма разворачивается. как сделать что бы когда форма развернулась имя буттон1 (click) изменилось допустим на Minimize а при клике выполнилась процедура Application.Minimize;

[Лубышев]

Ну вот в общем по первому нажатию максимизируется а по второму восстанавливается:

[fize]

да чтож такое-

procedure TForm1.Button1Click(Sender: TObject);
var
typ,txt: string;
begin
if flag=false then
begin
txt:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
  typ:=copy(txt,1,3);
  if typ='UFS'
    then
      begin
        UFSNum := StrToInt(copy(txt,4,length(txt)-3))-1;
        PortNum := UFSNum+1;
        ComOpen;
flag:=true;
button1.Caption:='disconn';
end
else
begin
 if portnum<>0
    then INTERFACE_CLOSE;
flag:=false;
button1.Caption:='connect';
end;
end;
end;

коннектить коннектит а при дисконнекте молчит. может ошибся где?

[Лубышев]

begin
 if portnum<>0
    then INTERFACE_CLOSE;
flag:=false;
button1.Caption:='connect';
end;

попробуй сделать так:

begin
{ if portnum<>0 then (попробуй убрать вот это условие - возможо portnum у тебя имеет все время значение 0}
INTERFACE_CLOSE;
flag:=false;
button1.Caption:='connect';
end;