функция Add не принадлежит классу TForm1, там и находится ListBox2
сделайте так:
объявите в классе TForm1 функцию Add вот так:
Код:
......
type
TForm1 = class(TForm)
// блаблабла
function Add(lineadd: string): string;
......
function TForm1.Add(lineadd: string): string;
begin
...
// lineadd вводится
...
Listbox2.Items.Add(lineadd);
...
end;