Wert auslesen Stringgrid

[Murcielago82]

Hallo,
das StringGrid erstelle ich hier:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  
  Rect: TRect; State: TGridDrawState);
VAR outRect : TRect; 
    Text    : String; 
begin
  Text:= StringGrid1.Cells[ACol, ARow]; 
  outRect := Rect; 
  
  StringGrid1.Canvas.Brush.Color:=EigenschaftenGrid[ACol, ARow].Farbe;
  StringGrid1.Canvas.Fillrect(Rect); 
  if EigenschaftenGrid[ACol, ARow].Schrift <> nil then
    StringGrid1.Canvas.Font.Assign(EigenschaftenGrid[ACol, ARow].Schrift); 
  
  DrawText(StringGrid1.Canvas.Handle,PChar(Text),length(Text),outRect,DT_Center     
    or
    DT_SingleLine);
end;