Doppelten String nicht übergeben

[SaFu]

Hallo zusammen

ich gebe von den Zellen 11 und 12 eines StringGrids den inhalt an ein Eidt feld jetzt möcht ich aber die doppelten Einträge nicht übergeben wie mache ich das

Delphi-Quellcode:

procedure TForm7.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
var  spalte, ueberschri :Integer;
begin
  with TStringList.Create do
  try

    for spalte:= 11 to 12 do
    begin                                        
      ueberschri:= Count; 
      StringGrid1.Cols[Spalte]:= DupIgnore;// so geht es nicht
      AddStrings(StringGrid1.Cols[spalte]);
      Delete(ueberschri); 
    end;

    Edit1.Text:= StringReplace(Text, sLineBreak, '', [rfReplaceAll]);
  finally
    Free;
  end;

Danke schonmal