если ты ЭТО
Код:
procedure TForm1.Memo1Change(Sender: TObject);
var
str1, str2: string;
begin
str1:= 'Unom= ';
str2:= ' кВ';
memo1.Lines.Add(str1);
memo1.Lines.Add(str2);
end;
повесил на Memo1.OnChange, то должен получить StsackOverflow
То есть изнутри обработчика изменения Memo1, ты добавляешь туда же две строчки.