Para escribir en la consola primero vas a tener que crear una consola
Para escribir utiliza algo como esto:
Código Delphi
[-]
procedure Escribir(Str: string);
var
StdOut: THandle;
begin
StdError:= GetStdHandle(STD_OUT_HANDLE);
if (StdOut <> STD_ERROR_HANDLE) and (StdOut <> 0) then
begin
FileWrite(StdOut,PChar(Str + #13#10)^,Length(Str)+2);
end;
end;
Escribir('Hola mundo');
Y no te olvides de destruir la consola cunado ya no la necesites: