case (Sender as TComponent).Tag of
    1: ...
    2: ...
    3: ...
    4: ...
end;

NameMemo: TComponentName; // Тут нужен Правильный тип переменной!!!
begin
     case (Sender as TComponent).Tag of
          1: NameMemo := 'FPHexMemo';
          2: NameMemo := 'FPTxtMemo';
          3: NameMemo := 'FZHexMemo';
          4: NameMemo := 'FZTxtMemo';
     end;
...
     with NameMemo do
          begin
...

procedure TManualForm.MemoChange(Sender: TObject);
var
i: integer; // номер строки
Height: integer; // высота текста в Memo
Rect: TRect; // пользовательская область Memo
Pos: integer; // позиция курсора
begin  
     i:=0;
     Height:=0;
     with (Sender as TMemo) do
          begin
               Pos:=SelStart;
               Rect:=ClientRect;
               TempLabel.Font:=Font;
               while (i < Lines.Count) and (Height < Rect.Bottom) do
                    begin
                         TempLabel.Caption:=Lines[i];
                         if TempLabel.Caption = '' then TempLabel.Caption:=' ';
                         Inc(Height, TempLabel.Height);
                         Inc(i);
                    end;
               if Height > Rect.Bottom then ScrollBars:=ssVertical
               else ScrollBars:=ssNone;
               if SelStart <> Pos then SelStart:=Pos
          end;
end;

[dcc32 Error] Manual_Module.pas(1143): E2064 Left side cannot be assigned to

Height := Height + TempLabel.Height;

procedure TManualForm.MemoChange(Sender: TObject);
var
NomerStroki: integer; // номер строки
Visota: integer; // высота текста в Memo
Rect: TRect; // пользовательская область Memo
PosCursor: integer; // позиция курсора
begin 
     NomerStroki := 0;
     Visota := 0;
     with (Sender as TMemo) do
          begin
               PosCursor := SelStart;
               Rect := ClientRect;
               TempLabel.Font := Font;
               while (NomerStroki < Lines.Count) and (Visota < Rect.Bottom) do
                    begin
                         TempLabel.Caption := Lines[NomerStroki];
                         if TempLabel.Caption = '' then TempLabel.Caption := ' ';
                         Inc(Visota, TempLabel.Height); // после замены имени переменной - можно и так
                         //Height := Height + TempLabel.Height; // аналог строки выше
                         Inc(NomerStroki);
                    end;
               if Visota > Rect.Bottom then ScrollBars := ssVertical
               else ScrollBars := ssNone;
               if SelStart <> PosCursor then SelStart := PosCursor;
          end;
end;

procedure TForm1.MemoChange(Sender: TObject);
var
NomerStroki: integer; // номер строки
Visota: integer; // высота текста в Memo
Rect: TRect; // пользовательская область Memo
M: TMemo;
begin
     NomerStroki := 0;
     Visota := 0;
     M := Sender as TMemo;
     Rect := M.ClientRect;
     TempLabel.Font := M.Font;
     while (NomerStroki < M.Lines.Count) and (Visota < Rect.Bottom) do
          begin
               TempLabel.Caption := M.Lines[NomerStroki];
               if TempLabel.Caption = '' then TempLabel.Caption := ' ';
               Inc(Visota, TempLabel.Height);
               Inc(NomerStroki);
          end;
          if Visota > Rect.Bottom then M.ScrollBars := ssVertical
          else M.ScrollBars := ssNone;
end;

NomerStroki < M.Lines.Count

HideScrollBars := True;
ScrollBars := ssVertical; (или ssHorizontal)