Не правильно код вставил:
[code lang=pascal]procedure TForm1.ButtonFindClick(Sender: TObject);
var
i, result: integer;
begin
MemoResuls.Text := StringReplace(MemoText.Text, #13#10, #32, [rfReplaceAll]);
MemoResuls.Text := StringReplace(MemoText.Text, #32, #13#10, [rfReplaceAll]);
Result := 0;
for i := 0 to MemoResuls.Lines.Count-1 do
if strtoint(MemoResuls.Lines.strings[i])>0 then
Result:=Result+strtoint(MemoResuls.lines.strings[i]);
LabelKol.Caption:=(('Сумма положительных = '+ IntToStr(Result)));
LabelKol.Visible:=true;
end;

procedure TForm1.ButtonReadClick(Sender: TObject);
Var f:textFile;
s,FileName:string; стих:string; // назначаем переменную
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
begin
MemoText.Lines.Clear;
while not eof(f) do
Begin
Readln(f,s);
MemoText.Lines.LoadFromFile(OpenDialog1.Filename, TEncoding.UTF8);

End;
CloseFile(f);
EditLetter.SetFocus;
end;
end;

end;

end.[/code]

Пример, как она сейчас работает

Вся надежда видимо на вас)