Здравствуйте, Андреев Дмитрий Фёдорович!

изменяем обработчик нажатия на клавишу Read

procedure TForm1.btnReadClick(Sender: TObject);

var hFile : THandle;

a : array[0..1024] of char;
aa : array[0..1024] of char;

i, n : Cardinal;
l, j, m : integer;

begin


// открывае поток на чтение файла
hFile := CreateFile(PChar(txtInf.Text),

GENERIC_READ,

FILE_SHARE_READ or FILE_SHARE_WRITE,

nil,

OPEN_EXISTING,

0,

0);



if hFile = INVALID_HANDLE_VALUE then

begin
// реакция на ошибку открытия файла
Status.SimpleText :='Error during opening file: ' + inttostr(GetLastError());

exit;

end;



txtInput.Text := '';



n := 0;
m:=0;
// читаем файл (не совсем хорошо реализовано, но работает)
while ReadFile(hFile, a, sizeof(a), i, nil) do

begin

if i > 0 then // если вычитали не нулевую длину файла
begin
for j := 0 to i - 2 do // заполняем выходной массив
begin
l:= Byte(a[j ])-48;// получаем числовое значение текстовой переменной
if l>0 then
begin
if l<4 then
begin// если квадрат числа однозначное число
aa[m] := Char(l*l+48);// возводим в квадрат число и преобразовываем к тексту в ASCII
m:=m+1;
aa[m]:=' ' ;// добавляем пробел после числа
m:=m+1;
i:=i+1;
end
else
begin
l:=l*l;// ЕСЛИ ДВУЗНАЧНОЕ
aa[m] := Char((l div 10)+48);// получаем старшую часть числа и преобразовываем в текст
m:=m+1;
aa[m] := Char((l mod 10)+48);// получаем младшую часть числа и преобразовываем в текст
m:=m+1;
i:=i+1;
aa[m]:=' ' ;// добовляем пробел после числа
m:=m+1;
i:=i+1;
end
end ;
end ;
txtInput.Text := txtInput.Text + Copy(aa, 0, i-2) // выводим текст в нужную область
end

else

break;

n := n + i;

end;


CloseHandle(hFile);// закрываем поток работы с файлом

Status.SimpleText := Format('ReadFile: %d byte(s)', [n]);


end;