Jak wyświetlić dane tylko w jednym wierszu Memo?

Witam.
Jak wyświetlić dane(string) tylko w jednym wierszu w memo.
Przyklad:
gumka -skasowanie gumka
zeszyt - skasowanie zeszyt
pióro - skasowanie pióro
Kredka itd.

Wyświetlane dane maja zaczynać się od początku linii.
Teraz wyswietla mi się każdy przedmiot w osobnej(następnej) linii.
Przedmioty te są w pętli for.
Zamiast memo może być edit.
Nie mogę dać sobie z tym rady
Dzięki

Zamiast

Memo1.Lines.Add(przedmiot);

użyj

Memo1.Lines.Text:=Memo1.Lines.Text+' '+przedmiot;

Nie działa
W memo mam 5ć wierszy. Przedmioty mają wyswietlac sie w 3im wierszu. Po kolei, kazdy od poczatku wiersza

Może w ten sposób:

Memo1.Lines[2]:=Memo1.Lines[2]+' '+przedmiot; //3 wiersz (stąd index wiersza = 2)

Teraz Memo1 nic sie nie wyswietla

Podaje cala procedure:

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  
Memo1.Lines[2]:=Memo1.Lines[2]+' '+ str;
end;

dodanie znacznika <code class="delphi"> - @furious programming

Napisz jaśniej. Nie jestem zbyt bystry w programowaniu. Robię to sporadycznie.

Np.

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
  I: Integer;
begin
  ComPort.ReadStr(Str, Count);
  If Memo1.Lines.Count<3 then
  for i:=1+Memo1.Lines.Count to 3 do
  Memo1.Lines.Add('');
  Memo1.Lines[2]:=Memo1.Lines[2]+' '+ str;
end;

zapewne wystarczy:

uses ..., StrUtils,..
...
begin
...
   Memo.Lines.Text := ReplaceStr(Memo.Lines.Text,#13#10,'');
...
end;

Wersja to Delphi 7
Dalej nie działa
Wywala bląd
Undeclared identifier ReplaceStr

@hxn - czytaj też komentarze; Funkcja ReplaceStr znajduje się w bibliotece standardowej dużo nowszych wersji Delphi; Natomiast Delphi7 posiada starszy odpowiednik - funkcję StringReplace - która działa dokładnie tak samo.

Zaraz nam @hxn napisze, że StringReplace też mu nie działa, bo się nie kompiluje. Jako ostatni parametr należy podać tam w przypadku takiej podmianki [rfReplaceall]. Tak wiem, jest Google, ale po co go używać. W dziale Newbie trzeba zawsze najpierw pytać, później szukać. Bo choćby w Korei Północnej nie mają tam w ogóle dostępu do Światowego Internetu poza wyselekcjonowaną nomenklaturą. I jakoś żyją ;/