[OlegII]

Здравствуйте!
Помогите, пожалуйста, с решением задачки.
Прочитать текстовый файл. На отдельной форме вывести этот же текст, но в котором каждое новое предложение написано с новой строки (предложения заканчиваются точкой).
Заранее огромное спасибо!!!

[Black Raider]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Par: TStringList;
i:integer;
begin
  Par := TStringList.Create;
  Par.Clear;
  Par.LoadFromFile('c:\1234567.txt');
  ExtractStrings(['.'], [' '], PChar(Par.Text), Par);
  memo2.Clear;
  for i := 1 to Par.Count-1  do
    begin
      memo2.Lines.Add(Par.Strings[i]);
    end;
  Par.Free;
end;

[OlegII]

Огромное спасибо!