I need to write the code below: procedure [login to view URL](Sender: TObject); var Tmp: String; BaseMem: LongInt; begin { free memory } FmtStr(Tmp,'MemAvail: %d KBytes',[MemAvail div 1024]); [login to view URL] := Tmp; FmtStr(Tmp,'Base Mem: %d KBytes (%d)',[GetBaseMem div 1024,GetBaseMem]); [login to view URL] := Tmp; { free resources } FmtStr(Tmp,'Free System Resources: %d%%', [GetFreeSystemResources(gfsr_SystemResources)]); [login to view URL] := Tmp; FmtStr(Tmp,'Free User Resources: %d%%', [GetFreeSystemResources(gfsr_UserResources)]); [login to view URL] := Tmp; FmtStr(Tmp,'Free GDI Resources: %d%%', [GetFreeSystemResources(gfsr_GDIResources)]); [login to view URL] := Tmp; { show that we're still alive and running... } if ([login to view URL] = 'x') then [login to view URL] := '+' else [login to view URL] := 'x'; end; Please provide functions GetBaseMem and GetFreeSystemResources
## Deliverables
the code will provide a minimal test application