Работа с логами

Как лучше реализовать сабж?
Пробовал с помощью TextFile, но постоянные глюки, мол, файл используется другим процессом, открыть нельзя и т.п. Пробовал с помощью StringList (ReadFromFile) - тоже глюки. Есть ещё вырианты?

Работа с помощью StringList:
[highlight=delphi]
procedure TfMain.GetCompanyHistory;
var
LogName: string;
HistoryList: TStringList;
begin
LogName := LogsPath + CompanyListBox.Items[CompanyListBox.ItemIndex] + '.txt';
HistoryList := TStringList.Create;
try
HistoryList.LoadFromFile(LogName);
HistoryMemo.Lines := HistoryList;
except
HistoryMemo.Lines.Clear;
CreateLogFile(LogName);
end;
HistoryList.Free;
end;
[/highlight]