Usuwanie i wstawianie

1.Mam komponent FLATLISTBOX i chcĘ zeby wstawialo (jak nacisnieta zostanie w nim jakas linijka(jakis ITEMS)) to zeby wstawial wyraz znajdujacy sie przed "-" do Memo(jak sie da takie cos zrobic(ewentualnie miedzy jakimis znakami).

2.Drugie pytanie to:
Podczas otwierania pliku usuwl wyrazy znajdujace sie w np. nawiasach.

3.Jak zrobic by program usuwał puste linijki (do 1 linijki tam gdzie były więcej niz jedna pusta)

2. Usuwanie plików w nawiasach, ale nie wiedziałem czy w nazwie pliku, czy w treści, to sobie przerobisz. Ten przykład przerabia tekst z nawiasami z Edita1 i wstawia bez nawiasów do Edita2:

var
    i : integer;
    BylNawias : boolean;
    NowyCiag : string;
begin
    NowyCiag := Edit1.Text;
    BylNawias := false;
    i := 1;
    repeat
        if NowyCiag[i] = '(' then begin
            BylNawias := true;
            Delete(NowyCiag, i, 1);
        end
        else if (NowyCiag[i] = ')') and BylNawias then begin
            BylNawias := false;
            Delete(NowyCiag, i, 1);
        end
        else begin
            if BylNawias then begin
                Delete(NowyCiag, i, 1);
            end
            else begin
                i := i + 1;
            end;
        end;
    until i = Length(NowyCiag);
    Edit2.Text := NowyCiag;
end;