Nesse tutorial vou explicar como conseguir o nome do computador e o usuario.Para esse tutorial eu recomendo pesquisar depois sobre o uso de API (Interface de Programacao de Aplicacoes)do Windows: http://pt.wikipedia.org/wiki/API.Com as APIs voce nao ficara reinventando a roda.Vamos usar duas funcoes da API:GETCOMPUTERNAME e GETUSERNAME.Vamos criar duas funcoes para facilitar o trabalho das APIs.Nome do Computador function NomedoComputador: String; var buffer: Array[0..255] of char; size: DWord; begin size := 256; if GetComputerName (buffer,size) then Result := Buffer else Result := ''; end; Nome do Usuario function NomedoUsuario: String; var UserName: String; UserNameLen: DWord; begin UserNameLen := 255; SetLength (UserName, UserNameLen); if GetUserName (PChar(UserName), UserNameLen) Then Result := Copy (UserName,1,UserNameLen - 1) else Result := 'Desconhecido'; end; No programa completo: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) LblComputador: TLabel; LblUsuario: TLabel; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function NomedoComputador: String; var buffer: Array[0..255] of char; size: DWord; begin size := 256; if GetComputerName (buffer,size) then Result := Buffer else Result := ''; end; function NomedoUsuario: String; var UserName: String; UserNameLen: DWord; begin UserNameLen := 255; SetLength (UserName, UserNameLen); if GetUserName (PChar(UserName), UserNameLen) Then Result := Copy (UserName,1,UserNameLen - 1) else Result := 'Desconhecido'; end; procedure TForm1.FormCreate(Sender: TObject); begin LblComputador.Caption := NomedoComputador; LblUsuario.Caption := NomedoUsuario; end; end. Com base no post anterior voce fazer o mesmo programa em Delphi para ver as diferencas.Como o Delphi e uma continuacao do Pascal o programa ira ficar bem semelhante, exceto pelas partes de objetos que o Delphi utiliza.No meu conceito de aprendizagem de linguagem de programacao deveria pouco a pouco substituindo a linguagem Pascal por Delphi, pois atualmente e muito mais interessante ao aluno e muito mais versatil ao professor.Lembre-se que e apenas educacional para aprender a comecar a usar. Se precisar de algo mais robusto entre em contato ou aguarde as proximas edicoes.Codigo Fonte: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var tf : TextFile; begin Assignfile (tf,'Arquivo.Txt'); ReWrite (tf); WriteLn (tf,'Uma Linha'); CloseFile (tf); Label1.Caption := 'Arquivo Criado!'; end; end. Vamos a algumas analises e compartivos.A lista Uses e bem maior que no Pascal pela varias bibliotecas que o Delphi utiliza para a parte grafica (Windows).Na parte Type sao declarados os Objetos: Button = Botao e Label = Texto.O comando Assign do Pascal e substituido por AssignFile.O resto fica muito semelhante ao codigo Pascal.//&amp;lt;!--&amp;lt;br /&amp;gt;google_ad_client = "ca-pub-6164575749184973";&amp;lt;br /&amp;gt;google_ad_host = "pub-1556223355139109";&amp;lt;br /&amp;gt;/* Wellington Telles */&amp;lt;br /&amp;gt;google_ad_slot = "3920235862";&amp;lt;br /&amp;gt;google_ad_width = 728;&amp;lt;br /&amp;gt;google_ad_height = 90;&amp;lt;br /&amp;gt;//--&amp;gt;&amp;lt;br /&amp;gt;////&amp;lt;br /&amp;gt;src="http://pagead2.googlesyndication.com/pagead/show_ads.js"&amp;gt;&amp;lt;br /&amp;gt;// Ha varios acessorios no Delphi que podemos utilizar diretamente, mas outros precisam ser adicionados para a sua funcionalidade e eles sao acessados atraves do ActiveX.Nessa aula vou ensinar como adicionar o Windows Media Player. A versao do Windows Media Player sera a mesma instalada