[lmikle]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  SList : TStringList;
  I, J : Integer;
begin
  SList := TStringList.Create;
  Try
    SList.LoadFromFile(Edit1.Text);
    For I := 0 To SList.Count-1 Do
      If Lenght(SList[i]) <= 3 Then // Длинна строки <= 3
        For J := SList.Count DownTo I + 1 Do
          If Slist[i] = SList[J] Then
            SList.Delete(J); // Удаляем такие-же, что ниже I
    SList.SaveToFile(Edit1.Text);
  Finally
    SList.Free;
  End;
end;