2 linjer i en DataGrid eller ne StringGrid

Jeg kan sandt for dyden ikke få den til at lave mere end en linje.. øv..
Jeg har lagt et hav af Procedure og Function ind og så galt en Tilladelse til at Lave LF og BR ... men lige lidt hjæper det... den vil ikke..
Den retter bare teksten til om cellen bliver den samme størrelse og nogen Ny linje neden under den anden kommer der ikke.
Jeg har Russiske og Poske og tyske Procedure og Function og ingen af dem vil noget som helst.
Kan man slet ikke lave "Næste linje" i samme celle i en StringGrid ?
VH
SpørgerJørgen (godt sur)

Det her virker i en stringgrid, måske virker det i en datagrid hvis man laver lidt om i det:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  List: TStringList;
  I:Integer;
begin
  List := TStringList.Create;
  with (Sender as TStringGrid) do
  begin
      List.Delimiter := Chr(10);
      List.DelimitedText := Cells[ACol, ARow];

      if DefaultRowHeight < List.Count * Canvas.TextHeight(Cells[ACol, ARow]) + 2 then
      DefaultRowHeight := List.Count * Canvas.TextHeight(Cells[ACol, ARow]) + 2;

      Canvas.FillRect(Rect);
      for I := 0 to List.Count - 1 do
      begin
      Canvas.TextOut(Rect.Left + 2, Rect.Top + (Canvas.TextHeight(Cells[ACol, ARow])*I) + 2, List.Strings[I]);
      end;
    end;
  List.Free;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
StringGrid1.Cells[1,1] := Memo1.Text;
end;

Desværre... den stopper her :
List.Delimiter
Den har ikke noget Delimiter
Jeg slog op under TStringlist og fandt :

TStringList = class(TStrings)
  private
    FList: PStringItemList;
    FCount: Integer;
    FCapacity: Integer;
    FSorted: Boolean;
    FDuplicates: TDuplicates;
    FOnChange: TNotifyEvent;
    FOnChanging: TNotifyEvent;
    procedure ExchangeItems(Index1, Index2: Integer);
    procedure Grow;
    procedure QuickSort(L, R: Integer);
    procedure InsertItem(Index: Integer; const S: string);
    procedure SetSorted(Value: Boolean);
  protected
    procedure Changed; virtual;
    procedure Changing; virtual;
    function Get(Index: Integer): string; override;
    function GetCapacity: Integer; override;
    function GetCount: Integer; override;
    function GetObject(Index: Integer): TObject; override;
    procedure Put(Index: Integer; const S: string); override;
    procedure PutObject(Index: Integer; AObject: TObject); override;
    procedure SetCapacity(NewCapacity: Integer); override;
    procedure SetUpdateState(Updating: Boolean); override;
  public
    destructor Destroy; override;
    function Add(const S: string): Integer; override;
    procedure Clear; override;
    procedure Delete(Index: Integer); override;
    procedure Exchange(Index1, Index2: Integer); override;
    function Find(const S: string; var Index: Integer): Boolean; virtual;
    function IndexOf(const S: string): Integer; override;
    procedure Insert(Index: Integer; const S: string); override;
    procedure Sort; virtual;
    property Duplicates: TDuplicates read FDuplicates write FDuplicates;
    property Sorted: Boolean read FSorted write SetSorted;
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
    property OnChanging: TNotifyEvent read FOnChanging write FOnChanging;
  end;

Men altså ikke den du søger.
VH
Koden12

er det mig der er bare er bagstiv, eller vil du indsætte en ny record i din db, ved at lave en ny linje i DBgrid? så bruger du jo bare piletasten ned, og så står du i en ny linje? men hvis du vil have det skal ske på Enter tryk, så er den nok knap såre simpel :)
bær over med mig hvis jeg har misforstået spørgsmålet :)

fixxxer , ja det har du.
Det handler slet ikke om DBGrid men om StringGrid som ikke har nogen database med ny linje i databasen mm
VH
SpørgerJørgen

Jeg fandt en Delimiter som Char
Var
Delimiter : Char;

Begin

Men det hjalp mig nu ikke.
VH
Koden12

Delimiter og Delimiter text er erklæret i TStrings som TStringlist arver fra.

*Ups, Stavefejl: "Delimiter text" = "DelimiterText"