Загрузка текста из файла.тхт

var
F : TextFile;
S : String;
 
begin
AssignFile(F, 'file.txt');
append(F);
S := memo3.Text;
WriteLn(F,S);
CloseFile(F);
end;

begin
 with OpenDialog1, Memo3 do
      if Execute then
         Lines.LoadFromFile(FileName);
end;

while not eof(file) do
begin
  readln(file, s);
  if i = k then break;
  inc(i)
end;

var List:TStringList;
...
List:=TStringList.Create;
List.LoadFromFile(FileName);
Memo3.Text:=List[0{строчка по порядку, счет идет с 0}];

var List:TStringList;
i:Integer;
...
List:=TStringList.Create;
List.LoadFromFile(FileName);
for i:=0 to List.Count-1 do
begin
If AnsiPos(Edit1.Text, List[i])<>0 {В эдит1 пишешь что искать}
then
begin
Memo1.Lines.Add(List[i]);
end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    Button1: TButton;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
  if OpenDialog1.Execute then
  begin
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
end;
 
end.