debes agregar sysutils al uses
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,j,indice: integer;
Str: String;
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
Edit2.Text:=('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>');
Edit2.Text:=('Load File..................OK !');
Memo1.Clear;
with TStringList.Create do
try
if FileExists(Edit1.Text) then
begin
LoadFromFile(Edit1.Text);
FillChar(Buffer,Sizeof(Buffer),#255);
for i:= 0 to Count - 1 do
Insertar(Strings[i],Buffer);
j:= StrToInt(Label2.caption);
Str:= EmptyStr;
end;