Form lässt sich mit show nicht öffnen

[Sharky]

Hai MrFish,

mal ganz am Rande. Warum hast Du denn so viele IF-Abfragen in deinem OnDrawCell? Es wird doch immer das selbe gemacht.
So müsste es doch auch gehen.

Code:

unit Unit8;
.
.
procedure TVorlage.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
//--------------------------------------------------------------------------
//-------Tabelle nach Wochentagen unterteilen ------------------------------
//--------------------------------------------------------------------------
  if (Acol IN  [2,4,6,8,10,12]) then
    begin
      StringGrid1.Canvas.Pen.Color:=clblack;
      StringGrid1.Canvas.Pen.Width:=1; 
      StringGrid1.Canvas.moveto(Rect.Left,Rect.Top);
      StringGrid1.Canvas.Lineto(Rect.Left,Rect.Bottom);
    end;
end;
.
.