Problem zB ; statt .

[Sharky]

Hai Heiko next,

ich denke Du kannst den Fehler sehr schnell finden wenn Du eine saubere Formatierung deines Quellcodes machst.

Delphi-Quellcode:

begin
     if  tabbednotebook1.ActivePage='Vorspeisen' then
begin
  with Printer do
  begin
.
.

Finde ich persönlich furchtbar. Du hast zwei begin auf einer einrückungsebene ohne das ein passendes end da ist.

Delphi-Quellcode:

begin
  if  tabbednotebook1.ActivePage='Vorspeisen' then
  begin
    with Printer do
    begin
      .
      .
    end;
  end
  else
  begin
    . 
    .
  end;
end;

So ist das doch viel einfach zu lesen oder?