Delphi - tablero

Hola a todos. A ver si alguno de vosotros me podeis mandar en codigo fuente para dibujar un tablero de ajedrez con sus casillas blancas y negras,Muchas gracias a todos!!

procedure TForm1.DibujarTablero;
var
i, j: integer;
ContadorCeldas: Byte;
TInicial, LInicial: Integer; //Top y Left inicial del tablero
AnchoCelda: Byte; //El ancho de cada escaque en Pixels
Celdas: Array [1..64] of TPanel;
begin
ContadorCeldas:=1;
TInicial:=5;
LInicial:=5;
AnchoCelda:=25;
for i:=1 to 8 do begin
for j:=1 to 8 do begin
Celdas[ContadorCeldas]:= TPanel.Create (Self);
Celdas[ContadorCeldas].Parent:= Self;
Celdas[ContadorCeldas].Width:=AnchoCelda;
Celdas[ContadorCeldas].Height:=AnchoCelda;
Celdas[ContadorCeldas].Top:=TInicial+AnchoCelda*(i-1);
Celdas[ContadorCeldas].Left:=LInicial+AnchoCelda*(j-1);
//Pintamos los escaques
if i mod 2=1 then
if ContadorCeldas mod 2=1 then
Celdas[ContadorCeldas].Color:=clBlack
else
Celdas[ContadorCeldas].Color:=clWhite
else
if ContadorCeldas mod 2=1 then
Celdas[ContadorCeldas].Color:=clWhite
else
Celdas[ContadorCeldas].Color:=clBlack;
inc (ContadorCeldas);
end;
end;
end;

Nota: Hay que añadir la cláusula ExtCtrls al uses del Form si no está ya.

gracias por mandarme el codigo dr Juzam pero lo q me hace falta es para una una aplicacion de tipo CONSOLE APLICATION y q se programa igual q se haria en pascal.Porque es q no tengo ni idea de como se dibuja el tablero o en su defecto como se pordia dar comor a las casillas q me generaria el array bidimensional.
De todas formas gracias