Mam dwa pytania dotyczące Delphi 7

1. Proszę poprawić składnię tej procedury:

if [coś tam] then
MessageBox('cośtam','cośtam', MB_Ok + MB_Iconstop) and
Memo1.Lines.Text := '';

Głównie chodzi mi o to, jak połączyć te dwa zdarzenia. Jeżeli zostanie spełniony warunek, ma wyświetlić się okienko MessageBox i ma się wyczyścić Memo1 (próbowałem tak, jak napisałem, ale nie działa).

2. Chcę, aby po kliknięciu na Buttona obraz z komponentu Image zniknął. Coś w rodzaju wyzerowania :)

K R Z E M A - spragniony wiedzy !!
GG#: 4391798
E-mail: krzema12@wp.pl

---

if (.......) then begin
MessageBox(.........., MB_Ok + MB_Iconstop) ;
Memo1.Lines.Text := ''; end;
Sprawdź czy Memo1.Lines.Text := ''; po := ma być " czy ""

Ed

if [coś tam] then
Begin
MessageBox('cośtam','cośtam', MB_Ok + MB_Iconstop)
Memo1.Lines.Text := '';
End;

Image1.Picture:=nil;

-------------- ------------- ------------- --------------- ------
Korona Kielce - Jagiellonia Białystok 1:0                
Widzew ŁódźÂ  - Korona Kielce 7 sierpnia, 18:00  (0:3 w PP)
Korona Kielce - Ąwit Nowy Dwór Mazowiecki 14 sierpnia, 17:00

Dzięki bardzo :)

K R Z E M A - spragniony wiedzy !!
GG#: 4391798
E-mail: krzema12@wp.pl

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl