Procedura warunkowa

Czy może mi ktoś poprawić procedure warunkową:

if button1.caption='Włącz' then begin
(wlacz) and (button1.caption:='Wyłącz')
end else
(wylacz($2fc,$2)) and (button1.caption:='Włącz');

Tak zeby działała ...

Za pomoc z góry dziękuje.

Czy może mi ktoś poprawić procedure warunkową:

if button1.caption='Włącz' then begin
(wlacz) and (button1.caption:='Wyłącz')
end else
(wylacz($2fc,$2)) and (button1.caption:='Włącz');

Tak zeby działała ...

Za pomoc z góry dziękuje.

if Button1.Caption='Włącz' then begin
(wlacz);//tu jest kod na wlaczenie
Button1.Caption:='Wyłącz';
end else begin
(wylacz($2fc,$2));//wylaczenie
Button1.Caption:='Włącz';
end;
end;

Azgon poczytaj jakiś kurs Pascala, bardzo dobry kurs znajdziesz na stronie pana o nicku Vogel ;)

L0f1X twój kod jest poprawny, ale Wlacz i Wylacz to chyba procedury z FAQ (zapalająca i gasząca LEDa podpiętego do portu COM), więc nawiasy są tutaj zbędne:
if Button1.Caption = 'Włącz' then
begin
Wlacz;
Button1.Caption := 'Wyłącz';
end
else
begin
Wylacz($2fc, $2);
Button1.Caption := 'Włącz';
end;