jak z kilku linii zroibć jedną W Richedit

Jak w temacie...

  for I := 1 to RichEdit1.Lines.Count - 1 do
    RichEdit1.Lines[0] := RichEdit1.Lines[0] + RichEdit1.Lines[I];

  for I := RichEdit1.Lines.Count -1 downto 1 do
    RichEdit1.Lines.Delete(I);

coś takiego?

var jedna_linia: string;
jedna_linia := RichEdit1.Lines.Text;

//lub

while RichEdit1.Lines.Count > 1 do begin
  RichEdit1.Lines[0] := RichEdit1.Lines[0] + RichEdit1.Lines[1];
  RichEdit1.Lines.Delete(1);
end;

Kurde nie działają.. żadne kody coście podali ;P
ten 1 co podał ktos tam działa, ale nie wszystkie linie bierze pod uwage ;( robi tylko część w jednej linii a resztę kasuje... a te 2 wyżej nie działają..
ja mam do was nowe pytanie..
potrzebne mi to jest do szukania tekstu w richedit...
niestety szukana część zdania jest 2 liniowa i nie działa szukanie pisze że nie znajduje...
czy znacie jakiś specjalny znak przejścia do następnej linii czy cuś :P

Znaki przejścia to CR i LF (odpowiednio #13 i #10)
Windows stosuje CRLF, Linux samo CR a MAC samo LF

Mogłeś napisać wcześniej, że szukany tekst jest 2-liniowy, ale z tego co pamiętam jeszcze z Delphi to tekst z Lines.Text zawiera też znaki CR i LF. Możesz sobie dodać 2 linie do RichEdita podczas projektowania, odpalić program w Debugerze i wykonać w Watchesach monitorować zawartość Lines.Text, Okno watch pokaże Ci jaki format ma wynik.

No nareszcie, udało się dzięki Tobie :P, zapomniałem całkowicie o crlf ;P

Zrobiłem tak
C := #13#10;
i
szukany tekst tak
'dsadasda'+c+'dsadadadadas'
i działa :P

Jakbyś napisał, że szukany tekst jest wieloliniowy to bym Ci od razu powiedzial o łączeniu szukanych linii przez CRLF ;)