Opisanie coda v Delphi! Pomogite pls!

[Wakansta]

begin
if not memo1.Visible then begin
label1.Visible:=true;
labelededit1.Visible:=true;
memo1.Visible:=true;
exit;
end else
if trim(labelededit1.Text)<>'' then begin
vg:=labelededit1.Text;
label1.Caption:=resultlabel+#10+'"' +vg+'"';
end;
end;
Для каждой строки поясните плиз*)

[Mad_Cat]

if not memo1.Visible then begin // если мемо невидимое то
label1.Visible:=true;    // покажем  лейбл
labelededit1.Visible:=true; // и эдит
memo1.Visible:=true;  // ну и  мемо
exit; // и на  выход
end else // иначе
if trim(labelededit1.Text)<>'' then begin // если в эдите не пусто
vg:=labelededit1.Text; // и переменную запишем текст из эдита
label1.Caption:=resultlabel+#10+'"' +vg+'"';// и в лейбле перейдем на новую строку и допишем содержимое переменной 
end; //пока все
end; // точно все!!!