Liberación de memoria de Tbitmap

[Marck Silencer]

Hey! compañeros ya ah funcionado! xD.......

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
Var
 c : TControlCanvas;
 color : TColor;
begin
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
co := TcontrolCanvas.Create;
 Try
 c.Handle := GetDC(0);
 color := c.Pixels[123,123];
 panel1.Color:= color;

 finally
 deleteDC(c.Handle);
 c.Free;
 end;

end;

Utilizando el código de coso como base, utilizando la función propuesta por ElKurgan y checando más a fondo como se maneja lo del GetDC encontre que hacía falta borrar el DC obtenido al mandar llamar a la función GetDC...

Ya lo eh probado por bastante tiempo sin que se comience a alentarse y sin que me arroje algún error.....

Para escanear una área de la pantalla creen que sea conveniente utilizar un array bidimensional de Tcolor ó será mejor guardar esa área en un Bitmap?¡?
para después hacer la búsqueda del color predominante en dicha área..

Gracias por su ayuda y su tiempo..
Saludoss!!